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了 中 
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随 着 Intemet( 因 特 网 ， 也 称 国际 互联 网 ) 的 迅猛 发 展 ， 网 络 已 深入 到 世界 的 各 个 角落 。 作 为 


Intemet 


的 主要 组 成 部 分 的 网 站 ， 其 数量 和 质量 都 在 快速 发 展 。 网 站 与 用 户 的 交互 主要 使 用 动 


态 网 页 来 实现 。 为 了 简化 和 方便 动态 网 页 的 开发 , Web 领域 的 主要 开发 商 相继 推出 了 多 种 Web 
开发 技术 ，ASP(Active Server Pages) 就 是 其 中 的 典型 代表 。 它 是 微软 公司 的 一 种 动态 网 页 制作 
技术 , 打破 了 以 往 只 能 由 专业 人 员 来 开发 动态 网 站 的 束缚 ,使 一 般 人 员 也 能 快速 高 效 地 构建 自 
己 的 动态 网 站 。 本 书 将 利用 Dreamweaver 和 ASP 快速 创建 充满 动感 的 交互 网 页 ， 而 无 须 或 只 
需要 少量 的 手写 代码 ， 同 时 还 能 非常 方便 地 编辑 和 管理 站 点 。 这 是 动态 网 页 初学 者 进行 网 站 开 
发 的 最 好 方式 。 


本 和 





所 根据 作者 的 实际 教学 和 开发 经 验 , 由 浅 入 深 、 循 序 渐进 地 介绍 ASP 和 Dreamweaver 的 


基本 知识 点 ， 并 且 讲 解 时 使 用 大 量 实例 ， 使 读者 在 掌握 ASP 知识 点 后 就 能 进行 实践 。 本 书 的 
后 面部 分 讲解 了 一 些 典型 的 动态 网 站 模块 的 设计 和 开发 案例 ， 以 软件 、 案 例 相 结合 的 方法 ， 探 
讨 网 站 建设 的 各 种 知识 和 操作 技巧 ， 从 而 帮助 读者 学 以 致 用 。 

全 书 分 为 14 章 ， 具 体内 容 如 下 。 














第 1 章 : ASP 网 站 开发 概述 。 介 绍 当前 使 用 较 广 的 动态 网 页 制作 技术 ， 主 要 讲解 ASP 
的 特点 、ASP 开发 工具 以 及 Dreamweaver 对 ASP 的 良好 支持 ， 重 点 讲解 ASP 开发 环 
境 的 配置 和 Dreamweaver 中 站 点 的 管理 ， 为 后 续 章 节 的 学 习 葛 定 基础 。 

第 2 章 : Dreamweaver 基础 。 主 要 介绍 Dreamweaver 的 使 用 ， 首 先 介 绍 Dreamweaver 
的 基本 使 用 方法 , 然后 讲解 简单 网 页 的 制作 方法 : 表格 的 使 用 、 超 级 链接 、 页 面 布局 、 
表单 的 使 用 、CSS 样式 、 框 架 的 使 用 ， 最 后 通过 一 个 实例 来 综合 演练 前 面 讲解 的 
Dreamweaver 的 各 种 功能 和 操作 。 

第 3 章 : ASP 脚本 语言 。 主 要 讲解 ASP 脚本 语言 的 语法 知识 ， 包 括 数据 类 型 、 运 算 
符 、 常 量 和 变量 、 数 组 、 语 句 控制 结构 、 过 程 和 函数 ， 最 后 给 出 使 用 ASP 制作 的 一 
个 月 历 的 实例 。 

第 4 章 : Request/Response 对 象 。 介 绍 ASP 的 两 个 主要 对 象 Request 和 Response。 利 
用 Request 对 象 从 客户 端 获取 信息 ,利用 Response 对 象 向 客户 端 传输 信息 。 重 点 讲解 
这 两 个 对 象 的 属性 和 方法 ， 以 及 它们 的 使 用 方法 。 

第 5 章 : Session/Application 对 象 。 介 绍 ASP 的 两 个 内 置 对 象 Session 和 Application 。 
Session 对 象 用 来 存储 特定 的 用 户 会 话 信息 ; Application 对 象 能 用 于 存储 和 接收 可 以 
被 某 个 应 用 程序 的 所 有 用 户 共享 的 信息 。 重 点 讲解 这 两 个 对 象 的 属性 和 方法 ， 以 及 
它们 的 使 用 方法 。 最 后 ， 讲 解 Globalasa 文件 的 构成 和 功能 ， 通 过 实例 讲解 该 文件 的 
应 用 。 

第 6 章 : Server 对 象 。Server 对 象 提供 对 服务 器 上 的 方法 和 属性 进行 访问 的 接口 。 该 
章 重点 讲解 Server 对 象 的 各 种 方法 , 包括 Execute、 Transfer、 MapPath、HTMLEncode、 
URLEncode、CreateObject 方法 。 

第 7 章 : ADO 数据 库 访 问 。 介 绍 ASP 使 用 ADO 访问 数据 库 的 方法 ， 重 点 介绍 ASP 





与 Access 数据 库 连 接 并 对 其 进行 检索 、 添 加 、 修 改 和 删除 的 方法 。 

@ 第 8 章 : ASP 常用 内 置 组 件 。 介 绍 ASP 常用 的 内 置 组 件 ， 包 括 文件 存 取 组 件 、 广 告 
轮 显 组 件 、 浏 览 器 兼容 组 件 、 文 件 超 链接 组 件 、 计 数 器 组 件 的 功能 和 使 用 方法 。 

@ 第 9 章 : ASP 网 站 安全 防护 。 本 章 主 要 介绍 了 ASP 网 站 的 一 些 安全 漏洞 以 及 相应 的 
防范 措施 和 实例 。 

@ 第 10 章 : 网 站 测试 。 为 了 保持 网 站 的 正常 运行 ， 需 要 进行 网 站 测试 。 本 章 将 重点 介 
绍 网 站 发 布 和 测试 方面 的 相关 操作 。 

@ 第 11 章 : 常见 模块 分 析 。 本 章 主 要 介绍 一 些 常用 的 ASP 模块 ， 以 便 读者 对 本 书 前 面 
的 内 容 进 行 复 习 和 理解 。 模 块 包括 登录 模块 、 购 物 车 模块 、 分 级 目录 模块 、 权 限 设置 
模块 、 分 页 显示 模块 、 投 票 模块 和 搜索 引擎 模块 。 

@ 第 12 章 : 论坛 。 介 绍 一 个 典型 的 论坛 的 制作 过 程 。 使 用 Dreamweaver 作为 开发 工具 ， 
采用 ASP+Access 模式 ， 重 点 讲解 Dreamweaver 的 数据 行为 ， 以 及 各 页 面 之 间 的 参数 
传递 方法 。 

@ 第 13 章 : 网 上 购物 网 站 。 讲 解 一 个 小 型 用 户 网 上 购物 网 站 的 设计 与 实现 。 网 上 购物 
网 站 采用 模块 化 设计 ， 对 购物 网 站 的 结构 做 出 比较 详细 的 分 析 。 对 于 网 站 的 静态 页 面 
的 设计 使 用 网 页 规划 、CSS 样式 。 并且 充 分 利用 Dreamweaver CS3 的 数据 行为 完成 整 
个 网 站 的 制作 。 

@ 第 14 章 : 新 闻 发 布 系统 。 介 绍 ASP+Access 模式 ， 采 用 模块 化 设计 ， 构 建 一 个 典型 
的 新 闻 发 布 平台 。 使 读者 加 深 对 Dreamweaver 数据 行为 的 了 解 , 能 够 使 用 该 数据 行为 
实现 简单 的 动态 网 页 效果 和 功能 。 

在 本 书 的 编写 过 程 中 ， 作 者 力求 讲解 得 深入 浅 出 ， 以 方便 读者 理解 。 并 注重 实际 应 用 ， 对 
重要 知识 点 都 配备 相应 的 实例 来 帮助 读者 理解 和 掌握 。 本 书 最 后 用 3 章 的 篇 幅 (第 12 一 14 章 ) 
讲解 3 个 重要 动态 网 站 开发 的 经 典 案 例 ， 案 例 操作 描述 详尽 。 读 者 只 需要 跟随 练习 ， 就 能 够 快 
速 上 手 ， 高 效 掌握 Dreamweaver 下 ASP 网 站 的 开发 技术 。 本 书 配套 资源 请 从 清华 大 学 出 版 社 
官网 下 载 。 

本 书 在 编写 过 程 中 得 到 多 位 专家 、 教 师 的 指导 ， 在 此 一 并 表示 感谢 。 由 于 作者 水 平 所 限 ， 
书 中 的 内 容 会 有 不 足 之 处 ， 奶 请 各 位 读者 批评 指正 。 
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第 1 章 ASP 网 站 开发 概述 


Ps 
内 摘要 lss 


在 Internet 发 展 的 早期 ，Web 责 面 大 多 数 为 静态 网 页 所 谓 静 态 网 页 ， 是 指 网 页 内 容 不 能 
实时 更 新 ， 只 能 由 网 站 维护 者 手工 编辑 更 新 网 页 内 容 。 随 着 Internet 技术 的 发 展 ， 动 态 网 页 逐 
渐 盛 行 起 来 。ASP(Active Server Pages) 是 动态 网 页 技术 的 优秀 代表 ， 使 用 它 可 以 创建 和 运行 动 
态 、 交 互 的 Web 服务 器 应 用 程序 ， 使 服务 器 端 实 时 处 理 浏览 器 端的 请 求 ， 依 据 用 户 不 同 需 求 
生成 不 同 的 页 面 。 


a 学 习 目标 |owiecuve 


@ 了 解 动 态 网 页 技术 。 
@ 理解 ASP 概述 。 
@ 熟练 掌握 ASP 开发 环境 的 安装 和 配置 。 





1.1 动态 网 页 简介 


动态 网 页 技术 是 当今 流行 的 网 页 制作 技术 。 在 学 习 网 页 制作 技术 时 ， 必 须 首 先 了 解 静态 网 
页 和 动态 网 页 的 区 别 与 联系 ， 了 解 常见 的 动态 网 页 技术 及 各 自 的 特点 ， 尤 其 需要 理解 ASP 技 
术 的 特点 和 选择 该 技术 进行 学 习 的 原因 。 


1.1.1 什么 是 动态 网 页 


静态 网 页 的 网 页 文件 代码 中 只 有 HTML 代码 ， 一 般 以 .html 或 .htm 为 后 级 名 。 静 态 网 站 内 
容 不 会 在 制作 完成 后 发 生变 化 , 每 次 访问 都 显示 一 样 的 内 容 。 如 果 希 望 网 页 内 容 发 生变 化 就 必 
须 修改 源 代码 ， 然 后 再 上 传 到 服务 器 上 。 

动态 网 页 则 是 采用 动态 HTML 制作 出 来 的 具有 动态 效果 的 网 页 。 这 种 网 页 文件 不 仅 具 有 
HIML 标记 ， 而 且 含有 程序 代码 ， 一 般 使 用 数据 库 连 接 。 动 态 网 页 能 根据 不 同 的 访问 请 求 ， 显 
示 不 同 的 内 容 。 动 态 网 站 的 数据 是 动态 存储 的 ， 一 般 通 过 后 台 直 接 更 新 ， 管 理 方便 。 

动态 网 页 的 实现 手段 是 多 种 多 样 的， 可 以 是 现 有 的 各 种 技术 手段 的 组 合 。 比 较 常 用 的 技术 
有 : 后 台 脚 本 编程 语言 (ASP、JSP、PHP); @ 前 台 脚 本 编程 语言 (JavaScript、VBScript); 
@ 文 件 对 象 模型 (DOM); 名 层 倒 样式 表 (CSS); 加 动态 图 层 (layers)。 

动态 网 站 虽然 具有 很 多 优点 ， 但 同时 也 带 来 了 一 些 次 端 ， 具 体 如 下 。 

(1) 网 站 由 于 其 具有 交互 性 ， 所 以 网 站 可 能 存在 很 大 的 安全 隐患 。 如 果 开 发 设计 过 程 中 安 
全 性 没有 考虑 到 位 ， 网 站 是 很 容易 被 黑客 入 侵 的 。 
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(2) 动态 网 站 的 页 面 上 的 信息 都 必须 从 数据 库 中 读 取 ， 一 般 情 况 下 ， 每 打开 一 个 页 面 就 读 
取 数 据 库 一 次 。 如 果 访 问 网 站 的 人 数 很 多 ， 这 会 对 服务 器 增加 很 大 的 荷载 ， 从 而 影响 这 个 网 站 
的 运行 速度 。 

(3) 动态 网 站 的 设计 对 于 搜索 引擎 不 是 很 友好 , 而 网 络 上 的 大 部 分 网 站 的 访问 者 基本 上 是 
通过 搜索 引擎 找到 网 站 的 。 


1.1.2 ”动态 网 页 的 常用 技术 


早期 的 动态 网 页 主要 采用 CGI 技术 ，CGI 即 Common Gateway Interface( 通 用 网 关 接口 )。 
用 户 可 以 使 用 不 同 的 程序 编写 适合 的 CGI 程序 , 如 Visual Basic、Delphi 或 C/C++ 等 。 虽 然 CGI 
技术 已 经 发 展 成 熟 而 且 功 能 强大 ， 但 由 于 编程 困难 、 效 率 低 下 、 修 改 复 杂 ， 所 以 逐渐 被 几 种 新 
技术 所 取代 。 

这 几 种 最 常用 的 动态 网 页 技术 包括 : ASP(Active Server Pages) /ASPNET，JSP(UJava Server 
Pages), PHP (Hypertext Preprocessor) 等 。 


1. ASP/ASP.NET 


ASP 全 名 Active Server Pages， 是 一 个 Web 服务 器 端的 开发 技术 ， 利 用 它 可 以 产生 和 运行 
动态 的 、 交 互 的 、 高 性 能 的 Web 服务 应 用 程序 。ASP 采用 脚本 语言 VBScript 或 JavaScript 作 
为 自己 的 开发 语言 。 

ASP 的 最 大 优点 是 可 以 包含 HIML 标记 ， 也 可 以 直接 存 取 数 据 库 及 使 用 无 限 扩充 的 
ActiveX 控件 ， 因 此 在 程序 编制 上 要 比 HTML 方便 且 更 富有 灵活 性 。 通 过 使 用 ASP 的 组 件 和 
对 象 技术 ， 用 户 可 以 直接 使 用 ActiveX 控件 ， 调 用 对 象 方法 和 属性 ， 以 简单 的 方式 实现 强大 的 
交互 功能 。 

ASP 是 Microsoft 开发 的 动态 网 页 语言 。 由 于 它 基 本 上 局 限于 微软 的 操作 系统 平台 之 上 ， 
主要 工作 环境 包括 运行 于 Windows NT 操作 系统 上 的 IIS(Intermet Information Server) 和 运行 于 
Windows 98 操作 系统 上 的 PWS(Personal Web Server)， 又 因为 ActiveX 对 象 具 有 平台 特性 ， 所 
以 ASP 技术 不 能 很 容易 地 实现 在 跨 平 台 Web 服务 器 上 工作 。 

ASPNET 是 ASP 的 后 继 版 本 ， 在 先前 的 文档 中 它 被 称 为 ASP+。ASPNET 和 它 的 前 期 版 
本 都 是 构建 新 一 代 动态 网 站 和 基于 网 络 的 分 布 式 应 用 的 技术 。ASP.NET 为 网 站 设计 人 员 和 网 
络 程序 员 提 供 了 更 简单 快捷 的 开发 方法 。 

ASPNET 向 前 兼容 ASP， 运 行 在 NET 平台 上 。 以 前 的 ASP 脚本 几乎 不 经 修改 就 可 以 
在 .NET 平台 上 运行 。 

2. PHP 


PHP(Hypertext Preprocessor) 是 一 种 跨 平 台 的 服务 器 端的 嵌入 式 脚 本 语言 。 它 大 量 地 借用 C、 
Java 和 Perl 语言 的 语法 ， 并 融合 了 PHP 自己 的 特性 ， 但 只 需要 很 少 的 编程 知识 用 户 就 能 使 用 
PHP 建立 一 个 真正 交互 的 Web 站 点 。 而 且 ，PHP 是 完全 免费 的 ， 用 户 可 以 从 PHP 官方 站 点 
(http://www.php.net) 自 由 下 载 。 它 与 HTML 语言 具有 非常 好 的 兼容 性 ， 使 用 者 可 以 直接 在 脚本 
代码 中 加 入 HIML 标记 ， 或 者 在 HTML 标记 中 加 入 脚本 代码 从 而 更 好 地 实现 页 面 控制 。PHP 
提供 了 标准 的 数据 库 接口 ， 它 支持 目前 绝 大 多 数 数据 库 。 数 据 库 连 接 方便 ， 兼 容 性 强 ， 扩 展 性 
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强 ， 可 以 进行 面向 对 象 编程 。 
PHP 可 以 在 Windows、UNIX 和 Linux 的 Web 服务 器 上 正常 运行 ， 还 支持 IS、Apache 等 
通用 Web 服务 器 。 用 户 更 换 平 台 时 ， 无 须 变换 PHP 代码 ， 可 直接 使 用 。 


3. JSP 


JSP 即 Java Server Pages， 它 是 Sun 公司 推出 的 新 一 代 动 态 站 点 开发 语言 ， 它 完全 解决 了 
目前 ASP 和 PHP 的 一 个 通病 一 一 脚本 级 执行 。JSP 和 ASP 在 技术 方面 有 许多 相似 之 处 ， 不 过 
两 者 来 源 于 不 同 的 技术 规范 组 织 。ASP 一 般 只 应 用 于 微软 的 操作 系统 平台 ， 而 JSP 则 可 以 在 
85% 以 上 的 服务 器 上 运行 ， 而 且 基于 JSP 技术 的 应 用 程序 比 基 于 ASP 技术 的 应 用 程序 易于 维 
护 和 管理 , 所 以 它 被 认为 是 未 来 最 有 发 展 前 途 的 动态 网 站 技术 。JSP 可 以 在 Servlet 和 JavaBean 
的 支持 下 ， 完 成 功能 强大 的 Web 程序 。 

综 上 所 述 ， 虽 然 PHP 和 JSP 各 有 优点 ， 但 ASP 仍然 占有 大 量 的 市 场 份 额 。 学 习 动 态 网 页 
制作 的 初学 者 也 往往 选择 ASP 作为 对 象 , 主要 原因 在 于 ASP 不 仅 提供 了 完整 的 动态 网 站 功能 ， 
而 且 语 法 简单 。 在 常用 的 Windows 系统 中 ，ASP 开发 环境 配置 方便 ， 开 发 容易 ， 适 合 一 般 动 
态 网 页 爱好 者 学 习 ， 也 适合 专业 的 网 页 制作 人 员 作 为 入 门 技术 学 习 。 掌 握 ASP 技术 之 后 ， 再 
学 习 其 他 动态 网 页 技术 就 容易 得 多 了 。 


1.2 ASP 概述 


ASP(Active Server Pages) 是 由 微软 公司 开发 的 服务 器 脚本 编写 环境 ， 使 用 它 可 以 开发 动态 
的 、 交 互 的 、 与 平台 无 关 的 Web 应 用 程序 。ASP 应 用 程序 是 在 服务 器 端 运行 的 ， 无 论 客户 端 
是 否 支 持 ASP， 都 可 以 浏览 到 动态 的 网 页 。 

ASP 是 一 种 开发 环境 ， 并 不 是 一 种 语言 ， 它 所 使 用 的 语言 可 以 是 JScript 或 VBScript， 或 
者 是 它们 两 者 的 结合 。 另 外 ， 任 何 一 种 文本 编辑 器 都 可 以 编辑 ASP 脚本 。 

ASP 内 嵌 于 IIS4.0 以 上 的 IIS 版 本 中 。Windows 2000 Server 已 经 默认 安装 了 IIS5.0。 因 此 ， 
在 Windows 2000 Server 中 使 用 默认 设置 就 可 以 运行 ASP 脚本 。 使 用 ASP 在 Windows 操作 系 
统 平台 上 可 以 轻松 地 开发 出 动态 的 、 功 能 强大 的 Web 应 用 程序 。 


1.2.1 ASP 的 特点 


ASP 由 微软 开发 ， 从 ASP1.0 已 经 发 展 到 ASP3.0。ASP 具有 以 下 几 个 特点 。 

(1) ASP 可 以 使 用 VBScript 和 JavaScript 脚本 语言 ， 结 合 HTML 代码 可 以 轻松 地 开发 出 
Web 应 用 程序 。 

(2) 无 须 编译 。ASP 脚本 可 以 集成 于 HTML 文档 中 ， 并 在 服务 器 端 直接 执行 。 

(3) 易于 编写 。 可 以 使 用 任何 一 种 编辑 文本 的 工具 编写 ASP 代码 的 Web 应 用 程序 ， 如 
Windows 操作 系统 中 的 “记事 本 ”程序 。 

(4) 与 浏览 器 无 关 。 网 站 的 动态 网 页 由 服务 器 端的 脚本 生成 。 客 户 端 浏 览 器 只 要 支持 
HIML 就 可 以 浏览 ASP 所 设计 的 网 页 内 容 。 

(5) ASP 可 以 使 用 ActiveX 组 件 。ActiveX 组 件 可 以 使 用 Visual C++、Visual Basic、Java 
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等 语言 开发 ， 大 大 扩展 了 ASP 的 能 力 。 
(6) ASP 源 程 序 不 会 被 传 到 客户 端 ， 有 效 地 避免 了 源 代码 泄露 ， 提 高 了 程序 的 安全 性 。 
(7) ASP 可 以 与 数据 库 ( 如 SQL Server、Microsoft Access 等 ) 建 立 连 接 , 通过 对 数据 库 的 操 
作 建 立功 能 强大 的 Web 应 用 程序 。 


1.2.2 ASP 的 工作 原理 


ASP 通过 调用 动态 链接 库 ASP.DLL 解析 ASP 文件 代码 ,并 将 这 些 代码 发 送 到 合适 的 脚本 
引擎 中 进行 解释 。 系 统 将 脚本 代码 的 运行 结果 结合 其 他 HTML 文件 生成 最 终 的 页 面 ， 并 将 最 
终 的 页 面 传送 给 客户 端 浏览 器 。 

ASP 的 工作 原理 如 下 。 

(1) 客户 端 计算 机 上 ， 用 户 在 浏览 器 的 地 址 栏 中 输入 一 个 ASP 动态 网 页 的 URL 地 址 并 按 
Enter 键 ， 向 Web 服务 器 发 出 一 个 ASP 文件 请 求 。 

(2) Web 服务 器 收 到 该 请 求 后 ， 根 据 扩展 名 .asp 判断 出 这 是 一 个 ASP 文件 请 求 ， 并 从 硬 
盘 或 内 存 中 获取 所 需 的 ASP 文件 ， 然 后 向 ASP 引擎 发 送 ASP 文件 。 

(3) ASP 引擎 自 上 而 下 查找 、 解 释 并 执行 ASP 页 中 包含 的 服务 器 端 脚本 命令 ， 通 过 数据 
库 访问 组 件 ADO(ActiveX Data Objects) 完成 数据 库 操作 ， 处 理 的 结果 是 生成 了 HTML 文件 ， 
并 将 HTML 文件 送 回 Web 服务 器 。 

(4) Web 服务 器 将 HTML 发 送 到 客户 端 计算 机 上 的 Web 浏览 器 ， 然 后 由 浏览 器 负责 对 
HTML 文件 进行 解释 ， 并 在 浏览 器 窗口 中 显示 结果 。 

ASP 的 工作 原理 如 图 1-1 所 示 。 














图 1-1 ASP 的 工作 原理 


1.2.3 ASP 的 基本 语 ; 


ASP 程序 中 可 以 包含 纯 文本 、HTML 标记 及 脚本 代码 。ASP 本 身 并 不 是 一 种 脚本 语言 ， 
它 只 是 提供 了 一 种 使 嵌入 在 HTML 页 面 中 的 脚本 代码 得 以 运行 的 环境 。 但 是 , 要 学 好 ASP 又 
必须 掌握 它 的 语法 和 规则 。 其 实 ， 脚 本 是 由 一 系列 脚本 命令 所 组 成 的 。 如 同一 般 的 程序 ， 脚 本 
可 以 将 一 个 值 赋 给 一 个 变量 ， 可 以 命令 Web 服务 器 发 送 一 个 值 到 客户 浏览 器 ， 还 可 以 将 一 系 
列 命令 定义 成 一 个 过 程 。 脚 本 语言 是 一 种 介 于 HTML 和 诸如 Java、Visual Basic、C++ 等 编程 语 
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言 之 间 的 一 种 特殊 的 语言 。 尽 管 它 更 接近 后 者 ,但 它 却 不 具有 编程 语言 复杂 、 严 谨 的 语法 和 规 
则 。 如 前 所 述 ，ASP 所 提供 的 脚本 运行 环境 可 支持 多 种 脚本 语言 ， 如 VBScript、JavaScript、 
PERL 等 ， 这 给 ASP 程序 设计 者 提供 了 广阔 的 发 挥 余地 。 在 同一 个 .asp 文件 中 可 以 使 用 不 同 的 
脚本 语言 ， 只 需要 在 .asp 中 声明 使 用 不 同 的 脚本 语言 即 可 。 

下 面 编写 第 一 个 ASP 网 页 ， 讲 解 ASP 的 基本 语法 。 在 记事 本 程序 窗口 中 ， 输 入 以 下 代码 
并 以 test.asp 为 文件 名 来 保存 文件 。 具 体 代码 如 下 : 

<$sQ@ language="vbscript" $%> 

<html> 

<body> 

这 是 第 一 个 ASP 演示 程序 ， 刷 新 可 显示 当前 时 间 。<br> 

当前 时 间 : <% = now() %$>。 

</body> 

</html> 

在 上 述 代码 中 ,<% @ language="vbscript" %> 给 出 ASP 处 理 .asp 文件 所 需 的 信息 ,用 于 
设置 页 面 中 的 脚本 语言 。 这 一 句 必须 位 于 .asp 文件 的 首 行 , 而 且 必 须 在 符号 @ 和 关键 字 之 间 加 
入 空格 ， 等 号 两 边 不 要 有 空格 。 

<%...%> 用 来 包括 脚本 命令 。<% = 表达 式 %> 用 来 显示 表达 式 的 值 ， 该 输出 指令 与 使 用 
“Response.Write 表达 式 ” 所 显示 的 信息 相同 。 本 例 中 <% =now0 %> 是 在 服务 器 端 执行 的 脚本 ， 
用 于 获取 在 服务 器 上 的 日 期 和 时 间 ， 并 将 日 期 和 时 间 返 回 给 客户 端 浏 览 器 显示 。 

使 用 浏览 器 访问 Web 服务 器 中 的 该 网 页 ， 当 时 作者 的 浏览 器 中 显示 的 页 面 如 图 1-2 所 示 。 
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图 1-2 ”获得 服务 器 中 的 当前 系统 日 期 和 时 间 


1.3 配置 ASP 开发 环境 


目前 ， 常 用 的 ASP 开发 环境 共有 4 种 ， 如 表 1-1 所 示 。 
表 1-1 ASP 操 作 系统 和 开发 环境 


操作 系统 开发 平台 
Windows 7/Windows 10 Internet Information Server 
S 7.0/TS 10.0 


M/E 


ASP+Dreamweaver 动态 网 站 开发 (第 2 版) 











续 表 
操作 系统 开发 平台 
Windows 2003 Server/ Internet Information Server 
Windows 2000 Server (HS 6.0/TS 5.0) 
Windows XP Professional 不 完整 IS 5.0 
Windows 2000 Professional 
Windows 98 MS Personal Web Server (PWS) 
Unix ChililSoft ASP 





其 中 最 常用 的 开发 平台 就 是 IS， 即 Intemet Information Server 的 缩写 。 它 是 微软 公司 主推 
的 服务 器 软件 , 最 新 的 版 本 是 Windows 10 中 包含 的 IIS 10。 IIS 与 Window 操作 系统 完全 集成 。 
用 户 可 以 利用 Windows 操作 系统 内 置 的 安全 特性 ， 建 立功 能 强大 并 且 安 全 的 Intemet 站 点 。 

IIS 支持 HTTP(Hypertext Transfer Protocol， 超 文本 传输 协议 )、FTP(File Transfer Protocol， 
文件 传输 协议 ) 及 SMTP 协议 。IIS 是 一 种 可 扩展 的 Internet 服务 器 软件 。 它 支持 多 种 脚本 和 与 
语言 无 关 的 组 件 。IIS 支持 ASP，IIS 3.0 以 后 的 版 本 引入 了 ASP。 


1.3.1 IIIS 的 安装 与 配置 
用 户 的 计算 机 上 可 能 已 经 安装 了 IIS。 请 检查 操作 系统 安装 分 区 中 是 否 包含 一 个 X:\Inetpub 


文件 夹 (X 代表 操作 系统 安装 盘 符 )。IIS 在 安装 过 程 中 将 创建 该 文件 夹 。 如 果 该 文件 夹 不 存在 ， 
就 按照 下 面 的 步骤 安装 IIS。 


1. IIS 服务 器 的 安装 
(1) 在 Windows 桌面 选择 “开始 ”| “控制 面板 ”命令 ， 打 开 如 图 1-3 所 示 的 “控制 面板 ” 
窗口 。 
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图 1-3 “控制 面板 ”窗口 
(2) 单 击 “ 控 制 面板 ”窗口 中 的 “程序 和 功能 ”组 件 图 标 ， 弹 出 “ 撮 载 或 更 改 程序 ”界面 ， 
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“打开 或 关闭 Windows 功能 ”按钮 ， 弹 出 “Windows 功能 ”对 话 框 ， 如 图 1-5 
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1-4 “和 印 载 或 更 改 程序 ”界面 1-5 “Windows 功能 ”对 话 框 (1) 


(4) 确保 “FTP 服务 器 ”和 “Web 管理 工具 ”全 部 被 选择 ， 系 统 自 动 选择 与 之 相关 的 其 他 
必需 服务 ， 如 图 1-6 所 示 。 单 击 “确定 ”按钮 ， 即 可 安装 已 选择 的 组 件 。 

(5) 单 击 “ 确 定 ”按钮 后 ,将 开始 拷贝 和 安装 所 需 文件 ， 文 件 复制 完毕 之 后 ， 单 击 “ 完 成 ” 
按钮 ， 即 可 完成 IS 的 安装 ， 安 装 时 的 界面 如 图 1-7 所 示 。 

















图 1-6 “Windows 功能 ”对 话 框 (2) 图 1-7 lS 安装 时 的 界面 


(0) 安装 完成 后 ， 就 需要 测试 TS 是 否 安 装 成 功 。 打 开 Intemet Explorer 浏览 器 ， 在 地 址 栏 
中 输入 “http://localhost” 后 按 Enter 键 ， 如 果 出 现 如 图 1-8 所 示 的 页 面 ， 提 示 Web 服务 正在 运 
行 ， 说 明 IS 服务 器 安装 成 功 。 


2. 配置 IIS 服务 器 


JIS 服务 器 安装 完成 后 ， 需 要 对 其 进行 配置 。 具 体 配 置 步骤 如 下 。 
(1) 单 击 “开始 ”| “设置 "1“ 控 制 面板 ”命令 , 双击 “管理 工具 ”图 标 , 再 次 双击 “Intemet 


信息 服务 ”图 标 ， 如 图 1-9 所 示 。 
IANA aa 












































图 1-8 “IS 的 开始 页 面 图 1-9 IIS 的 配置 界面 (1) 
(2) 单 击 计算 机 名 称 旁 的 加 号 ， 展 开 目 录 树 ， 右 击 “ 默 认 站 点 ”选项 ， 弹 出 一 个 快捷 菜单 ， 
如 图 1-10 所 示 。 
(3) 选择 “属性 ”命令 ， 弹 出 如 图 1-11 所 示 的 对 话 框 。 切 换 到 “Web 站 点 ”选项 卡 ， 在 
“IP 地 址 ”下 拉 列 表 中 选择 他 地 址 。 如 果 计 算 机 没有 连接 网 络 ， 卫 地 址 为 127.0.0.1。 
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图 1-10 llS 的 配置 界面 (2) 图 1-11 llS 的 配置 界面 (3) 


(4) 单 击 “ 主 目录 ”选项 卡 中 的 “浏览 ”按钮 更 改 本 地 路 径 , 或 更 改 其 开放 权限 , 如 图 1-12 
所 示 。 只 要 网 页 放 在 该 目录 下 ， 其 他 用 户 就 可 以 输入 该 计算 机 的 下 地址 进行 浏览 。 

(5) 切换 到 “文档 ”选项 卡 ， 如 图 1-13 所 示 。“ 启 用 默认 文档 ”列表 框 中 显示 站 点 默认 
的 首页 ， 名 称 分 别 为 Default.htm、Default.asp 等 。 可 以 对 默认 首页 进行 添加 和 删除 ， 也 可 以 更 
改 多 个 默认 首页 的 执行 顺序 。 

(6) 用 户 可 以 在 图 1-12 所 示 “ 主 目录 ”选项 卡 中 ， 进 行 配置 脚本 的 编译 文件 。 单 击 该 选 
项 卡 中 的 “配置 ”按钮 ， 弹 出 “应 用 程序 配置 ”对 话 框 ， 如 图 1-14 所 示 。 

(7) 单 击 “ 添 加 ”按钮 ， 弹 出 如 图 1-15 所 示 的 对 话 框 。 

(8) 在 “可 执行 文件 ”文本 框 中 ， 输 入 编译 脚本 文件 的 可 执行 文件 ， 在 “扩展 名 ”文本 框 
中 ， 输 入 脚本 的 扩展 名 ， 单 击 “确定 ”按钮 。 

(9) 返回 “应 用 程序 配置 ”对 话 框 ， 单 击 “ 确 定 ”按钮 。 

(10) 返回 “默认 Web 站 点 属性 ”对 话 框 ， 单 击 “确定 ”按钮 。 
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(11) IS 安装 完毕 。 
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图 1-12 IIS 的 配置 界面 (4) 图 1-13 IIS 的 配置 界面 (5) 
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图 1-14 1IS 的 配置 界面 (6) 图 1-15 IS 的 配置 界面 (7) 


3. 设置 虚拟 目录 

主 目录 是 用 户 访问 站 点 的 起 始点 ， 该 目录 中 包含 索引 文件 或 者 主页 。 如 果 发 布 主 目录 以 外 
的 文件 ， 就 要 使 用 虚拟 目录 。 对 于 客户 端 ， 虚 拟 目录 是 主 目录 中 的 子 目 录 。 

添加 虚拟 目录 的 具体 操作 步骤 如 下 。 

(1) 选择 “开始 ”|“ 设 置 ”|“ 控 制 面板 ”命令 ,双击 “管理 工具 ”图 标 ， 再 双击 “Intemet 
信息 服务 (IIS) 管 理 器 ”图 标 ,， 在 “默认 网 站 ”选项 上 右 击 , 弹出 一 个 快捷 菜单 ， 如 图 1-16 所 示 。 

(2) 选择 “新 建 ”| “虚拟 目录 ”命令 ， 弹 出 如 图 1-17 所 示 的 对 话 框 。 

(3) 单 击 “ 下 一 步 ” 按 钮 ， 如 图 1-18 所 示 。 

(4) 在 “别名 ”文本 框 内 输入 虚拟 目录 的 别名 ， 单 击 “ 下 一 步 ”按钮 ， 如 图 1-19 所 示 。 
别名 可 以 隐藏 虚拟 目录 的 物理 路 径 ， 可 以 增加 虚拟 目录 的 安全 性 。 

(5) 在 “路 径 ” 文 本 框 内 输入 虚拟 目录 的 路 径 ， 单 击 “ 下 一 步 ” 按 钮 ， 如 图 1-20 所 示 。 
也 可 以 单 击 图 1-19 所 示 界 面 中 的 “浏览 ”按钮 ， 选 择 虚拟 目录 的 路 径 ， 如 图 1-21 所 示 。 
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图 1-16 IIS 的 虚拟 目录 设置 界面 (1) 


欢迎 使 用 虚拟 目录 创建 向 导 






此 向 导 帮 助 修正 网 站 上 新 建 一 个 重 拟 目录 。 


委 秋 林 清单 击 “ 下 一 步 





图 1-17 lIS 的 虚拟 目录 设置 界面 (2) 
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1-18 “IS 的 虚拟 目录 设置 界面 (3) 图 1-19 llS 的 虚拟 目录 设置 界面 (4) 
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图 1-20 IIS 的 虚拟 目录 设置 界面 (5) 图 1-21 IIS 的 虚拟 目录 设置 界面 (5) 


(6) 





在 图 1-20 所 示 界 面 中 ， 设 置 虚 拟 目 录 的 权限 。 权 限 设置 功能 如 下 。 
读 取 权限 表示 人 允许 读 取 虚拟 目录 中 的 文件 。 
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@ ”运行 脚本 权限 表示 允许 在 虚拟 目录 中 运行 脚本 。 
执行 权限 表示 人 允许 在 虚拟 目录 中 运行 任何 应 用 程序 , 这 包括 脚本 文件 和 二 进 制 的 可 执 
行文 件 ， 如 扩展 名 为 .dl 和 .exe 的 文件 。 为 安全 考虑 ， 最 好 不 要 授予 虚拟 目录 可 执行 
权限 。 
@ ” 写 入 权限 表示 允许 客户 端 更 改 虚拟 目录 中 的 文件 内 容 。 
e@ ”浏览 权限 表示 允许 客户 端 浏 览 虚拟 目录 中 的 文件 。 
(7) 单 击 “ 下 一 步 ” 按 钮 ， 弹 出 如 图 1-22 所 示 的 对 话 框 ， 单 击 “ 完 成 ”按钮 ， 即 可 完成 
虚拟 目录 的 设置 。 


(8) 打开 Intemet 信息 服务 管理 器 ， 显 示 设 置 后 的 虚拟 目录 List， 如 图 1-23 所 示 。 
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图 1-22 IS 的 虚拟 目录 设置 界面 (7) 
4. 删除 虚拟 目录 


虚拟 目录 允许 客户 端 浏览 器 访问 主 目录 以 外 的 其 他 目录 内 的 文件 。 但 是 随 着 网 站 的 发 展 ， 
有 时 可 能 需要 删除 虚拟 目录 。 在 IIS 中 ， 可 以 删除 虚拟 目录 ， ee 

(1) 打开 “Intemet 信息 服务 管理 器 ”对 话 框 ， 右 击 待 删除 的 虚拟 目录 ， 如 图 1-24 所 示 。 
(2) 在 弹出 的 快捷 菜单 中 选择 “删除 ”命令 ， 弹 出 确认 删除 的 信息 提示 框 ， 如 图 1-25 所 示 。 


1-23 “IS 的 虚拟 目录 设置 界面 (8) 
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1-24 ”虚拟 目录 的 删除 (1) 1-25 ”虚拟 目录 的 删除 (2) 
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(3) 单 击 “ 是 ”按钮 ， 即 可 删除 虚拟 目录 。 
1.3.2 建立 Dreamweaver 服务 器 站 点 


在 使 用 Dreamweaver 来 创建 网 站 之 前 , 首先 需要 定义 站 点 , 为 Dreamweaver 设置 网 站 的 根 
目录 ， 以 及 服务 器 位 置 、 类 型 等 相关 信息 。 

(1) 启动 Dreamweaver 后 ， 从 主 菜 单 中 选择 “站 点 ”|“ 新 建站 点 ”命令 定义 一 个 新 站 点 。 
弹出 “chl 的 站 点 定义 为 ”对 话 框 ， 切 换 到 “高 级 ”选项 卡 ， 从 “分 类 ”列表 框 中 选择 “本 地 
信息 ”， 在 右 侧 窗口 中 设置 “站 点 名 称 ”， 可 以 随便 定义 一 个 有 意义 的 名 称 ， 建 议 使 用 站 点 的 
根 目 录 的 名 称 。“ 本 地 根 文件 夹 ” 设 置 为 前 一 节 设 置 虚拟 目录 的 文件 夹 ，“ 默 认 图 像 文 件 夹 ” 
一 般 设 置 为 “本 地 根 文件 夹 ” 的 下 一 级 目录 ， 如 图 1-26 所 示 。 

(2) 从 “分 类 ”列表 框 中 选择 “远程 信息 ”， 在 右 侧 窗 口中 设置 “访问 ”为 “本 地 /网 络 ”， 
“ 远 端 文件 夹 ” 仍 然 设 置 为 站 点 文件 夹 ， 如 图 1-27 所 示 。 


hl 的 试点 赵 义 为 x sl 的 站 点 定 多 为 








WAERa nr 
让 xici 忆 





默认 图 尖 文 昨天 区 ) eh imaeee 已 
久生 IE 对 于 “人 立 机 m) 站 点 相 日 好 GE) 











图 1-26 ”本 地 信息 设置 图 1-27 ”远程 信息 设置 


(3) 从 “分 类 ”列表 框 中 选择 “测试 服务 器 ”， 在 右 侧 窗口 中 设置 “服务 器 模型 ”为 ASP 
VBScript “访问 ”设置 为 “本 地 /网 络 ”, “测试 服务 器 文件 ”仍然 设置 为 站 点 文件 夹 ，“URL 
前 级 ”在 http://localhost 后 面 添加 chl/, 添加 的 内 容 就 是 前 面 设置 的 虚拟 目录 的 别名 , 如 图 1-28 
所 示 。 

(4) 单 击 “ 确 定 ” 按 钮 ， 完 成 站 点 的 定义 。 此 时 Dreamweaver 自动 在 “文件 ”面板 中 将 站 
点 文件 夹 内 的 所 有 内 容 映 射出 来 ， 接 下 来 就 可 以 对 站 点 的 文件 和 文件 夹 进行 操作 了 ， 如 图 1-29 
所 示 。 

(5) 在 如 图 1-29 所 示 的 “文件 ”面板 中 ， 双 击 打开 test.asp 文件 ， 如 图 1-30 所 示 。 

(6) 按 Fl12 键 ， 或 者 在 Dreamweaver 中 ， 在 打开 的 test.asp 文件 的 工具 栏 中 ， 单 击 “ 在 浏 
览 器 中 预览 /调试 ”按钮 ， 选 择 其 中 的 “预览 在 IExplore” 命 令 ， 启 动 在 mntermet Explorer 浏览 
器 中 预览 和 调试 网 页 命令 ， 如 图 1-31 所 示 。 





"ENN 


RS Taneuage= vbscript 好 
htnl> 


bedy> 
这 是 第 一 个 AS 演示 程序 ， 刷 新 可 显示 当前 时 间 


xbr7 
当前 时 间 : <% = now() %>。 
/hadyy 








1-30 在 站 点 中 打开 文件 
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1-31 从 工具 栏 启动 预览 /调试 


(7) 使 用 测试 服务 器 浏览 打开 的 在 虚拟 目录 中 的 asp 文档 。 当 系统 启动 mtemet Explorer 并 
正确 预览 文档 testasp， 并 且 效 果 与 图 1-32 所 示 类 似 时 ， 说 明 建立 的 Dreamweaver 服务 器 站 点 














运行 正常 。 
| | © Wipfocalhosy /es ep © els|v lus ”| 图 | 
和 已 手 机 入 六 天 > 膳 扩展 - 口 网恋 模式 | 翻译 ”可可 图 -> 
信人- 


| httpilocalhost/chi/testasp > 


这 是 第 一 个 ASF 演 示 程 序 ， 局 所 可 忌 示 当 前 时 间 , 
当前 时 间 ，2017/8/21 18:28:11。 


日 GE 加 热点 新 闻 加 医生 马 加 束 点 二 下 载 下台 口中 Q100% 


图 1-32 Dreamweaver 服务 器 站 点 运行 正常 的 效果 
1.4 小 结 


本 章 介绍 了 动态 网 页 技术 的 基本 知识 ， 使 读者 了 解 动态 网 页 相关 的 主要 的 3 种 技术 ,讲解 
了 ASP 技术 的 特点 和 优点 。 重 点 讲解 了 ASP 的 基本 语法 和 ASP 技术 的 开发 工具 ， 详 细 说 明了 
ASP 开发 环境 的 安装 与 配置 ， 并 讲解 了 Dreamweaver 对 ASP 的 友好 支持 。 通 过 本 章 的 学 习 ， 
读者 能 够 熟练 掌握 ASP 的 特点 、ASP 开发 环境 的 配置 及 ASP 开发 工具 Dreamweaver 的 站 点 


建立 。 
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YY 
“全 内 容 摘要 | awswract 


Dreamweaver 是 世界 上 最 优秀 的 可 视 化 网 页 设计 制作 工具 和 网 站 管理 工具 之 一 ， 支 持 最 新 
的 Web 技术 ， 包 含 HTML 检查 、HTML 格式 控制 、HTML 格式 化 选项 、HomeSite/BBEdit 捆 
绑 、 可 视 化 网 页 设计 、 图 像 编辑 、 全 局 查找 替换 、 全 FTP 功能 、 处 理 Flash 和 Shockwave 等 多 
媒体 格式 和 动态 HTML、 基 于 团队 的 Web 创作 。 本 章 主 要 讲述 Dreamweaver 在 开发 网 页 过 程 
中 的 使 用 方法 ， 同 时 在 本 章 的 结尾 以 一 个 完整 的 案例 来 闵 述 Dreamweaver 的 综合 使 用 。 


EY 学 习 目 标 |objcctive 


熟练 掌握 Dreamweaver 中 的 各 种 操作 。 
掌握 Dreamweaver 中 文本 和 版 面 的 控制 。 
掌握 Dreamweaver 中 图 像 和 多 媒体 的 使 用 。 
掌握 Dreamweaver 中 超级 链接 的 应 用 。 
掌握 Dreamweaver 中 的 页 面 布 局 。 

掌握 Dreamweaver 中 表单 的 使 用 。 

掌握 Dreamweaver 中 框架 的 使 用 。 

掌握 Dreamweaver 中 CSS 样式 表 的 使 用 。 


2.1 Dreamweaver 简介 


Dreamweaver 是 世界 上 最 优秀 的 可 视 化 网 页 设计 制作 工具 和 网 站 管理 工具 之 一 ， 支 持 最 新 
的 Web 技术 ， 包 含 HIML 检查 、HTML 格式 控制 、HTML 格式 化 选项 、HomeSite/BBEdit 捆 
绑 、 可 视 化 网 页 设计 、 图 像 编 辑 、 全 局 查找 蔡 换 、 全 FTP 功能 、 处 理 Flash 和 Shockwave 等 多 
媒体 格式 和 动态 HTML、 基 于 团队 的 Web 创作 。 在 编辑 上 ， 可 以 选择 可 视 化 方式 或 者 源码 编 
辑 方式 。 


2.1.1 Dreamweaver 工作 台 
Dreamweaver 提供 了 将 全 部 元 素 置 于 一 个 窗口 中 的 集成 工作 台 。 在 集成 工作 台中 ， 全 部 窗 


口 和 面板 集成 在 一 个 应 用 程序 窗口 中 。 可 以 选择 面向 设计 人 员 的 布局 或 面向 编码 人 员 需 求 的 布 
局 。 使 用 Dreamweaver 打开 HTML 页 面 后 ， 其 界面 如 图 2-1 所 示 。 





面板 组 


Se 


“文件 ”面板 





2-1 Dreamweaver 的 界面 


其 中 ,包括 菜单 栏 、“ 插 入 ” 栏 、 文 档 窗口 、 面 板 组 、 标 签 选择 器 、“ 属 性 ”检查 器 、“ 文 
件 ” 面 板 。 

1 “插入 ” 栏 

“插入 ” 栏 包含 用 于 将 各 种 类 型 的 “对 象 ”( 如 图 像 、 表 格 和 层 ) 插 入 到 文档 中 的 按钮 。 每 
个 对 象 都 是 一 段 HTML 代码 ， 人 允许 在 插入 它 时 设置 不 同 的 属性 。 例如， 可 以 通过 单 击 “ 插 入 ” 
栏 中 的 “表格 ”按钮 插入 一 个 表格 ,也 可 以 不 使 用 “插入 ” 栏 而 使 用 Insert 菜单 插入 对 象 。“ 插 
入 ” 栏 如 图 2-2 所 示 。 






图 2-2 Dreamweaver 的 “插入 ” 栏 


2. 文档 窗口 

文档 窗口 显示 当前 创建 和 编辑 的 文档 。 

3. “属性 ”检查 器 

“属性 ”检查 器 如 图 2-3 所 示 ， 主 要 用 于 查看 和 更 改 所 选 对 象 或 文本 的 各 种 属性 。 





图 2-3 Dreamweaver 的 “属性 ”检查 器 


4. 面板 组 


面板 组 如 图 2-4 所 示 , 其 是 分 组 在 某 个 标题 下 面 的 相关 面板 的 集合 。 若 要 展开 一 个 面板 组 ， 
请 单 击 组 名 称 左 侧 的 展开 箭头 ; 若 要 取消 停靠 一 个 面板 组 ， 请 拖 动 该 组 标题 条 左边 缘 的 手柄 。 


NNN 





5. “文件 ”面板 


通过 “文件 ”面板 可 以 管理 项 目 中 的 文件 和 文件 夹 ， 无 论 它们 是 Dreamweaver 站 点 的 一 部 
分 还 是 在 远程 服务 器 上 。“ 文 件 ” 面 板 还 可 以 访问 本 地 磁盘 上 的 全 部 文件 , 类 似 于 Windows 资 
源 管理 器 。“ 文 件 ” 面 板 如 图 2-5 所 示 。 





图 2-4 Dreamweaver 的 面板 组 2-5 ”Dreamweaver 的 “文件 ”面板 
Dreamweaver 中 还 提供 了 多 种 此 处 未 说 明 的 其 他 面板 、 检 查 器 和 窗口 。 若 要 打开 其 他 面板 ， 
请 使 用 “窗口 ”菜单 。 
2.1.2 用 Dreamweaver 创建 页 面 


利用 Dreamweaver 创建 一 个 新 的 网 页 的 基本 步骤 如 下 。 
(1) 启动 Dreamweaver。Dreamweaver 一 启动 就 将 创建 一 个 空白 的 页 面 , 或 者 可 以 选择 “ 文 
件 ”| “新建 ”命令 ， 弹 出 如 图 2-6 所 示 对 话 框 。 
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2-6 新建 网 页 
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(2) 从 各 种 预先 设计 的 页 面 布局 中 选择 一 种 。 例 如 : 选择 HIML， 单 击 “ 创 建 ”按钮 ， 
Dreamweaver 即 展开 如 图 2-7 所 示 的 工作 区 界面 (一 个 空白 页 )。 








2-7 ”新 建 网 页 的 工作 区 


2.2 文本 和 版 面 的 控制 


作为 熟悉 Dreamweaver 的 第 一 个 案例 ， 先 来 学 习 一 下 文本 和 版 面 的 控制 ， 即 制作 网 页 一 一 
“ 八 荣 八 耻 ”: 新 时 代 的 公民 生活 准则 。 完 成 后 的 2-1.html 网 页 ， 其 效果 如 图 2-8 所 示 。 





图 2-8 ““ 八 荣 八 耻 ”: 新 时 代 的 公民 生活 准则 ”页 面 
文字 是 网 页 的 基础 和 灵魂 ， 任 何 一 个 网 站 都 离 不 开 网 页 中 的 文字 。 在 Dreamweaver 中 ， 可 


NN 
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以 对 文字 的 格式 、 字 体 、 字 号 、 颜 色 、 对 齐 格式 等 属性 进行 设置 。 通 过 本 案例 的 学 习 ， 可 以 掌 
握 这 些 属 性 的 设置 方法 。 
(1) 利用 Dreamweaver 创建 一 个 新 的 网 页 。 
(2) 在 文档 编辑 区 ， 输 入 或 者 复制 内 容 ， 如 图 2-9 所 示 。 
sa 


1 人 们 的 吏 礼 由 现 ; 晤 | 开 育 
由 让 玉宇 六 自己 了 权利， 也 下 车 自 忆 的 人 务 。 也 有 人 下 下 各 村 





证 3 be 社 合 生活 由 一 元 辣 多 元 发 展 。 与 同时， 一些 四 的 起草 忆 # 
， 诸如 法 妇 醒 不， 从 二 ， 信 从 覃 训 读 夫 。 有 此 人 下 知道 自 己 的 权利 
各 的 政信 要 人 是 区 入 ， 要 省 党 ， 供 大 





RR eA 社会 主义 弟 尉 儿 招 握 了 时 代 所 产生 的 问题 的 症结 ， 并 括 明了 解决 的 途径 。 它 不 识 是 一 个 营 通 的 道德 标准 ， 而 且 也 是 一 个 包括 法 律 、 道 德 和 信念 三 个 后 
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2-9 添加 的 内 容 


(3) 设置 页 面 的 背景 。 选 择 “ 修 改 ”| “页 面 属性 ”命令 ， 将 弹出 如 图 2-10 所 示 的 “页 面 属 
性 ”对 话 框 。 对 背景 颜色 进行 设置 ， 如 图 2-11 所 示 。 
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图 2-10 设置 页 面 的 背景 图 2-11 选择 页 面 的 背景 颜色 


属性 说 明 如 下 。 

@ 页面 字体 : 指定 在 Web 页 中 使 用 的 默认 字体 族 。 Dreamweaver 将 使 用 指定 的 字体 族 ， 
除非 已 为 某 一 文本 元 素 专 门 指定 了 另 一 种 字体 。 

@ ”大 小 : 指定 在 Web 页 中 使 用 的 默认 字体 大 小 Dreamweaver 将 使 用 指定 的 字体 大 小 ， 
除非 已 为 某 一 文本 元 素 专 门 指定 了 另 一 种 字体 大 小 。 

e@ ”文本 颜色 : 指定 显示 字体 的 默认 颜色 。 

@ ”背景 颜色 : 指定 页 面 使 用 的 背景 颜色 。 

@ ”背景 图 像 : 如 果 背 景 要 设 为 图 片 ， 单 击 “ 背 景 图 像 ” 右 侧 的 “浏览 ”按钮 ， 系 统 弹出 
“图 片 选择 ”对 话 框 ， 选 中 背景 图 片 文件 ， 单 击 “ 确 定 ” 按 钮 。 

@ “左边 距 ” 和 “右边 距 ”: 指定 左右 页 边 距 的 大 小 。 

@ “上 边 距 ”和 “下 边 距 ”: 指定 上 下 页 边 距 的 大 小 。 


/aE 





(4) 设置 标题 的 字体 、 颜 色 及 对 齐 方式 。 通 过 上 面 的 操作 步 又， 页 面 的 效果 如 图 2-12 所 
示 。 选 中 标题 一 一 “ 八 荣 八 耻 ”: 新 时 代 的 公民 生活 准则 。 





图 2-12 选中 标题 
在 如 图 2-13 所 示 的 “属性 ” 栏 中 ， 设 置 “ 格 式 ” 为 Title1l， 同 时 设置 字体 颜色 为 红色 ， 设 
置 对 齐 方式 为 居中 。 


和 区 元。 可 
ae sa | 






图 2-13 设置 文字 的 属性 
设置 完毕 之 后 的 页 面 效果 如 图 2-14 所 示 。 





2-14 ”设置 标题 的 属性 


(5) 设置 除 标题 之 外 的 所 有 文字 ， 格 式 为 “段落 ”， 字 体 大 小 为 14。 
(6) 设置 项 目 列表 。 选 中 从 “首先 是 法 律 层面 ”到 “第 三 是 信念 层面 ”的 段落 ， 通 过 “ 属 
性 ” 栏 中 的 汪 洋 丝 些 ， 选 择 一 种 项 目 列表 ， 即 可 完成 如 下 效果 ， 如 图 2-15 所 示 。 


NN 
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图 2-15 项 目 列表 


(7) 保存 文件 。 选 择 “ 文 件 ”| “另存 为 ”命令 ， 在 打开 的 “另存 为 ”对 话 框 中 ， 调 整 到 站 
点 本 地 根 目录 下 ， 填 入 文件 名 ， 保 存 退 出 。 


2.3 图像 和 多 媒体 的 使 用 


大 部 分 网 页 中 都 包含 图 像 和 多 媒体 。 使 用 图 像 不 但 可 以 增强 视觉 效果 ， 提 供 更 多 信息 ， 丰 
富 文字 的 内 容 ， 而 且 可 以 将 文字 分 为 更 易 操作 的 小 块 。 下 面 通过 红楼 梦 人 物 简介 页 面 的 制作 ， 
讲解 Dreamweaver 中 的 图 像 和 多 媒体 的 使 用 。 通 过 该 网 页 可 以 看 出 , 在 网 页 中 同时 插入 图 像 和 
文字 时 , 可 以 设置 不 同 的 对 齐 方 式 , 以 达到 不 同 的 显示 效果 。 图 文 混 排 是 网 页 制作 的 基本 操作 ， 
实用 性 非常 强 。 本 节 的 重点 就 是 在 没有 表格 控制 的 情况 下 ， 来 编排 图 文 混合 内 容 的 排版 。 完 成 
后 的 2-2.html 网 页 ， 其 效果 如 图 2-16 所 示 。 
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图 2-16 红楼梦 人 物 简介 页 面 
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(1) 新 建 网 页 。 输 入 标题 和 内 容 ， 设 置 页 面 的 背景 颜色 ， 参 照 2.2 节 的 知识 ， 将 该 网 页 设 
置 为 如 图 2-17 所 示 的 样式 。 

(2) 插入 图 像 。 将 光标 移 至 “传说 女 娲 炼 石 补 天 之 时 ”文字 的 前 面 ， 选择“ 插入 ”| “图 像 ” 
命令 ,打开 如 图 2-18 所 示 的 “选择 图 像 源 文件 ”对 话 框 。 
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图 2-17 网 页 文字 样式 图 2-18 “选择 图 像 源 文件 ”对 话 框 


选择 插入 renwul.jpg 图 片 文件 ， 单 击 “ 确 定 ” 按 钮 。 

通常 所 选 图 像 应 放 在 站 点 文件 夹 下 的 图 像 文 件 夹 内 。 在 “选择 图 像 源 文件 ”对 话 框 中 , URL 
文本 框 中 会 给 出 该 图 像 的 路 径 。 在 “相对 于 ”下 拉 列 表 框 中 ， 如 果 选 择 “ 文 档 ” 选 项 ， 则 URL 
文本 框 中 会 给 出 该 图 像 文 件 的 相对 于 当前 网 页 文档 的 路 径 和 文件 名 。 例 如 pic/2-1-1jpg。 如 果 
选择 “站 点 根 目录 ”选项 ， 则 URL 文本 框 中 会 给 出 以 站 点 目录 为 根 目录 的 路 径 ， 例 如 
/pic/2-1-1.jpg。 

插入 图 像 的 方法 如 下 。 

Q@ 使 用 鼠标 拖 忠 图 像 。 

在 Windows 的 “我 的 电脑 ”或 “资源 管理 器 ”中 ， 单 击 一 个 图 像 文 件 ， 再 用 鼠标 拖 忠 该 
图 像 到 网 页 文档 窗口 内 ， 即 可 将 图 像 插入 到 页 面 内 的 指定 位 置 。 双 击 页 面 内 的 图 像 ， 可 以 弹出 
“选择 图 像 源 文件 ”对 话 框 ， 供 用 户 更 换 图 像 。 

@@ 利用 “插入 ”( 常 用 ) 面 板 插入 图 像 。 

单 击 “ 插 入 ”|“ 图 像 ” 组 中 的 “图 像 ”按钮 ,或 用 鼠标 拖 忠 “图 像 ” 按 钮 到 网 页 内 ， 可 以 
弹出 如 图 2-18 所 示 的 “选择 图 像 源 文件 ”对 话 框 。 如 果 “ 图 像 ” 组 中 显示 的 不 是 “图 像 ” 按 
钮 ， 可 以 单 击 旁边 的 下 三 角 按钮 ， 在 弹出 的 下 拉 列 表 中 选择 “图 像 ”按钮 。 

(3) 重复 上 面 的 操作 将 3 张 图 片 分 别 加 入 到 网 页 中 ， 效 果 如 图 2-19 所 示 。 

(4) 调整 图 像 的 大 小 。 因 为 选择 的 图 像 可 能 太 大 或 者 太 小 ， 所 以 需要 调整 。 选 中 要 调整 的 
图 像 ， 用 鼠标 拖 电 其 控制 柄 。 按 住 Shift 键 ， 同 时 用 鼠标 拖 昌 图 像 周 围 的 小 控制 柄 ， 可 以 在 保 
证 图 像 长 宽 比 不 变 的 情况 下 调整 图 像 的 大 小 。 或 者 为 了 精确 调整 图 像 的 大 小 ， 可 以 选中 图 像 ， 
在 “属性 ” 栏 中 ,设置 图 像 的 “宽度 ”和 “高 度 ”， 如 图 2-20 所 示 。 
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图 2-19 插入 图 片 后 的 效果 


将 3 张 图 片 的 大 小 设置 成 为 100x100。 
(5) 设置 图 片 的 对 齐 方式 。 当 网 页 内 有 文字 和 图 像 混 排 时 ， 系 统 默 认 的 状态 是 图 像 的 下 沿 
和 它 所 在 的 文字 行 的 下 沿 对 齐 。 如 果 图 像 较 大 ， 则 页 面 内 的 文字 与 图 像 的 布局 会 很 不 协调 ， 因 
此 需要 调整 它们 的 布局 。 调 整 图 像 与 文字 混 排 的 布局 需要 使 用 图 像 的 “属性 ” 栏 。 单 击 选 定 图 
片 renwul.jpg， 选 择 “ 属 性 ” 栏 中 的 对 齐 方 式 ， 选 择 “ 左 对 齐 ”; 选 定 图 片 renwu2.jpg， 选 择 
“ 右 对 齐 ”; 选 定 图 片 renwu3.jpg， 选 择 左 对 齐 ， 如 图 2-21 所 示 。 


00% a 








宽 的 |400| 
高 如 |505 


图 2-20 ”精确 设置 图 片 的 大 小 图 2-21 图 片 的 对 齐 方 式 


图 像 “ 属 性 ” 栏 内 的 “对 齐 ” 下 拉 列 表 框 中 有 10 个 选项 ， 用 来 进行 图 像 与 文字 相对 位 置 
的 调整 。 这 些 选 项 的 含义 及 作用 如 下 。 

@ “默认 值 ”: 选择 此 选项 时 使 用 浏览 器 默认 的 对 齐 方式 ， 不 同 的 浏览 器 会 稍 有 不 同 。 
“基线 ”: 选择 此 选项 时 图 像 的 下 沿 与 文字 的 基线 水 平 对 齐 。 
“顶端 ”: 选择 此 选项 时 图 像 的 顶端 与 当前 行 中 最 高 对 象 (图 像 或 文本 ) 的 顶端 对 齐 。 
“居中 ”: 选择 此 选项 时 图 像 的 中 线 与 文字 的 基线 水 平 对 齐 。 
“底部 ”: 选择 此 选项 时 图 像 的 下 沿 与 文字 的 基线 水 平 对 齐 。 
“文本 上 方 ”: 选择 此 选项 时 图 像 的 顶端 与 文本 行 中 最 高 字符 的 顶端 对 齐 。 
“绝对 居中 ”: 选择 此 选项 时 图 像 的 中 线 与 文字 的 中 线 水 平 对 齐 。 
“绝对 底部 ”: 选择 此 选项 时 图 像 的 下 沿 与 文字 的 下 沿 水 平 对 齐 。 文 字 的 下 沿 是 指 文 
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字 的 最 下 边 ， 而 基线 不 到 文字 的 最 下 边 。 
@ “ 左 对 齐 ”: 选择 此 选项 时 图 像 在 文字 的 左边 缘 ， 文 字 从 右 侧 环绕 图 像 。 
@ “ 右 对 齐 ”: 选择 此 选项 时 图 像 在 文字 的 右边 缘 ， 文 字 从 左 侧 环绕 图 像 。 


2.4 表格 的 应 用 


在 创建 HTML 网 页 的 过 程 中 ， 表 格 是 页 面 排版 的 强 有 力 的 工具 。 表 格 不 但 在 组 织 页 面 数 
据 时 非常 有 用 ， 而 且 在 网 页 元 素 布局 安排 上 也 起 着 非常 重要 的 作用 。 利 用 表格 可 以 控制 文本 和 
图 像 在 页 面 上 的 位 置 。 利 用 表格 制作 的 “金陵 十 二 包 判 词 ” 页 面 ， 完 成 后 保存 为 2-3.html， 其 
效果 如 图 2-22 所 示 。 
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上 」 文件 加 编 匈 到 ) 可 看) 收藏 人 ) 工具 0) 帮助 加 
金陵 十 二 铀 麟 词 
宁 嫩 玉 
可 叹 停 机 蓓 ， 堪 怜 钨 始 才 ?玉带 林 中 挂 ， 全 父 委 里 埋 . 
醇 宝 认 
要 元 春 二 十 年 来 着 晤 地 , 述 花 开 处 骨 宫 阅 ; 三 看 争 及 初春 景 ， 磺 部 想 这 大 末 归 。 
要 阳春 | 于 系 中 山 泊 ,神志 便 强生 ,全 国花 宰 质 ， 一 占 赴 黄 梁 。 
要 探 春 才 自 精明 志 自 高 ， 生 于 末世 运 偏 消 。 清 明 滋 送 江 边 望 ， 千 里 东风 一 人 各 。 
要 惜春 经 破 三 春景 不 长 ， 颖 让 顿 收 蔷 年 要 。 可 伶 师 尸 修 门 女 ， 独 舒 吾 灯 古 佛 过 。 
于 昭 风 凡 饼 偏 从 未 世 款 ， 和 知 委 不 此生 才 。 一 从 二 今 三 人 木 ， 胖 向 使 障 事 更 翰 。 
a 桃李 春风 结子 宛 ,到头 谁 似 一 全 兰 3 如 冰 水 好 宝 相 妒 ， 枉 与 好 人 作 关 谈 。 
落 玉 |samas， 云 裤 未 必 宝 。 可 怜 全 玉 质 ,党 陷 淹 泥 中 
村 巧 组 | 到 巾 作 云 贰 ， 夭亡 真 论 条 。 偶 因 表 刘 氏 ， 巧 得 台 思 人。 
史 湘 去 | 盏 侦 又 何 为 了 短 答 之 同 父母 过 展 眼 吊 寿 晖 ， 闭 江水 涛 营 云 飞 。 
素 可 时 | 天 天 本 身 ， 情 既 相连 必 主 浅 。 漫 言 不 月 避 荣 出 ， 造 是 开 靖 实 在 宁 。 
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图 2-22 “金陵 十 二 色 判 词 ” 页 面 


(1) 新 建 网 页 。 新建 一 个 网 页 ， 在 标题 栏 中 输入 “金陵 十 二 钒 判 词 ”。 

(2) 插入 第 一 个 表格 。 插入 1 行 1 列表 格 , 将 宽度 设置 为 80%， 使 表格 可 以 根据 浏览 器 的 
情况 调整 大 小 。 

在 网 页 制作 时 要 新 建 一 个 表格 ， 可 选择 “插入 记录 ”| “表格” 命令 ,或 单 击 “ 插 入 ” 栏 中 
的 “常用 ”类 型 中 的 “插入 表格 ”按钮 国 ， 也 可 用 CtrlHAlttT 组 合 键 ， 此 时 网 页 编辑 窗口 中 会 
弹出 “表格 ”对 话 框 ， 如 图 2-23 所 示 。 

在 此 对 话 框 中 ， 可 设置 表格 的 属性 ， 然 后 单 击 “ 确 定 ” 按 钮 确认 属性 设置 后 ， 便 可 在 页 面 
指定 位 置 上 插入 表格 。“ 表 格 ” 对 话 框 中 各 项 参数 的 具体 含义 如 下 。 

@ 在“ 行 数 ” 和 “ 列 数 ”文本 框 中 ， 可 设置 表格 的 行 数 和 列 数 。 

@ ”在 “表格 宽度 ”文本 框 中 ， 可 设置 表格 的 宽度 ， 并 在 右 侧 的 下 拉 列 表 框 中 选择 表格 宽 

度 的 单位 ， 选 项 分 别 为 “像素 ”和 “百分比 ”， 其 中 “百分比 ”是 指 表格 与 浏览 器 窗 
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口 的 百分比 。 





图 2-23 插入 表格 


在 “边框 粗细 ”文本 框 中 ， 可 设置 表格 外 框 线 的 宽度 ， 如 果 没 有 明确 指定 边框 粗细 的 
值 , 则 大 多 数 浏 览 器 按 边 框 粗细 设置 为 1 显示 表格 。 若 要 确保 浏览 器 不 显示 表格 边框 ， 
应 将 边框 粗细 设置 为 0。 

在 “单元 格 边 距 ”文本 框 中 ， 可 设置 单元 格 的 内 容 和 单元 格 边框 之 间 空 白 处 的 宽度 ， 
如 果 没 有 明确 指定 边 距 的 值 ， 则 大 多 数 浏览 器 按 边 距 设置 为 1 显示 表格 。 

在 “单元 格 间距 ” 文本 框 中 ， 可 设置 表格 中 各 单元 格 之 间 的 宽度 ; 如果 没有 明确 指定 
间距 的 值 ， 则 大 多 数 浏览 器 按 边 距 设 置 为 2 显示 表格 ; 要 确保 浏览 器 不 显示 表格 中 的 
边 距 和 间距 ， 应 将 “单元 格 边 距 ” 和 “单元 格 间距 ”设置 为 0。 

页 眉 : “页 眉 ” 选 项 包括 4 个 部 分 。“ 无 ”表示 在 表格 中 不 使 用 页 眉 ; “ 左 ” 表 示 可 
以 将 表 的 第 一 列 作 为 标题 列 ， 以 便 为 表 中 的 每 一 行 输入 一 个 标题 “顶部 ”表示 可 以 
将 表 的 第 一 行 作为 标题 行 ， 以 便 为 表 中 的 每 一 列 输入 一 个 标题 “两 者 ”表示 能 够 在 
表 中 输入 列 标题 和 行 标题 。 

标题 : 在 此 文本 框 中 可 设置 一 个 标题 。 

对 齐 标题 : 此 下 拉 列 表 框 可 用 来 指定 表格 标题 相对 于 表格 的 显示 位 置 。 

摘要 : 此 栏 用 来 设置 对 表格 的 说 明 。 该 说 明 不 会 显示 在 用 户 的 浏览 器 中 。 


(3) 插入 表格 后 选中 整个 表格 ， 在 “属性 ”面板 中 设置 对 齐 方式 为 “居中 对 齐 ”， 填 充 、 
间距 和 边框 均 为 0， 具 体 设置 如 图 2-24 所 示 。 





图 2-24 插入 第 一 个 表格 的 属性 设置 


将 光标 放置 于 单元 格 中 ， 输 入 文字 “金陵 十 二 包 判 词 ”， 选 中 文字 在 下 方 的 “属性 ”面板 
中 设 定 字体 为 “华文 行 楷 ”， 大 小 为 16pt， 文 字 颜色 为 #6b2ee9， 文 字 对 齐 方式 为 居中 。 
可 以 在 表格 “属性 ”面板 上 设置 下 列 选项 。 


表格 Id: 在 此 下 拉 列 表 中 可 输入 表格 的 名 称 。 
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e@ 。 行 、 列 、 宽 、 边 框 粗细 、 单 元 格 边 距 、 单 元 格 间距 等 设置 方法 与 上 述 “ 表 格 ” 对 话 杠 
的 参数 设置 方法 相同 。( 通 常 不 需要 设 定 表格 的 高 度 ) 
@ 。 对齐: 在 此 下 拉 列 表 中 可 设置 表格 的 对 齐 方式 。 
e@ ”清除 列 宽 和 清除 行 高 ， 可 清除 表格 中 行列 原来 所 设 列 宽 和 行 高 。 
@ ”将 表格 宽度 转换 成 像素 /百分比 :使 用 这 两 个 按钮 可 在 百分比 和 像素 之 间 切 换 ， 设 置 
表格 的 宽度 。 
@ ”将 表格 高 度 转 换 成 像素 /百分比 :使 用 这 两 个 按钮 可 在 百分比 和 像素 之 间 切 换 ， 设 置 
表格 的 高 度 。 
e@ ”背景 颜色 : 此 选项 用 来 设置 表格 背景 颜色 。 
e@ ”边框 颜色 : 此 选项 用 来 设置 表格 框 线 的 颜色 。 
@ 背景 图 像 : 此 选项 用 来 设置 表格 的 背景 图 像 。 
(4) 再 插入 一 个 表格 。 插 入 12 行 2 列 的 表格 ， 将 宽度 设置 为 80%， 依 次 填充 内 容 ， 插 入 
表格 后 选中 整个 表格 ， 在 “属性 ”面板 中 设置 对 齐 方式 为 居中 对 齐 ，“ 填 充 ” 为 4，“ 间 距 ” 
为 1， “边框 ”为 0 “背景 颜色 ”为 #6666FF， 具 体 设置 如 图 2-25 所 示 。 





EC 表格 I 和 hz2  ” 宽 Bo [x 到 ”填充 k ”对 齐 | 所 中 直下 类 [天 司 
四 | I 到 一 . 间距 1 ”边框 Pp 3 
EEAES] 青 最 颜色 国 |*eeocrr 过 异 闫 色 厂 -| 

到 痛 好 图像 OO 





2-25 ”插入 第 二 个 表格 的 属性 设置 


(5) 合并 单元 格 。 选 中 右 侧 第 一 、 二 单元 格 ， 根 据 需要 (两 人 物 用 同一 判 词 ) 使 用 国 | 按钮， 
将 两 个 单元 格 合 并 。 

(6) 输入 文字 。 在 各 自 单元 格 中 输入 相应 的 文字 。 

(7) 设置 单元 格 。 选 中 表格 中 所 有 单元 格 ， 设 置 文字 大 小 为 9pt， 文 字 颜 色 为 #6b2ee9， 单 
元 格 的 背景 颜色 为 白色 (#FFFFFF)， 具 体 设置 如 图 2-26 所 示 。 





格式 [无 可 本 夺 了 ] _css | Be|Z| 树 | 健 | 帮 | 对 ts ooD 3 
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2-26 单元 格 属性 设置 


可 以 在 单元 格 “属性 ”面板 上 设置 下 列 选 项 。 

水 平 : 此 下 拉 列 表 框 可 用 来 设置 单元 格 中 内 容 的 水 平 对 齐 方式 。 

垂直 : 此 下 拉 列 表 框 可 用 来 设置 单元 格 中 内 容 的 垂直 对 齐 方式 。 

“ 宽 ” 和 “高 ”: 设置 单元 格 的 宽度 和 高 度 。 

不 换行 : 选中 此 复 选 框 将 防止 换行 ， 单 元 格 会 自动 延展 以 容纳 数据 。 

标题 ， 选 中 此 复 选 框 将 选 定单 元 格 设置 为 表格 的 标题 栏 ， 其 文本 居中 且 粗 体 显 示 。 
背景 : 此 选项 用 来 设置 单元 格 背 景 图 像 。 

背景 颜色 : 此 选项 用 来 设置 单元 格 背景 颜色 。 

边框 : 此 选项 用 来 设置 单元 格 边框 的 颜色 。 
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e@ 合并 单元 格 ， 单 击 国 ( 合 并 单元 格 ) 按 钮 ， 可 合并 选 定 的 单元 格 。 
@” 拆 分 单元 格 ， 单 击 收 |( 拆 分 单元 格 ) 按 钮 ， 可 拆 分 选 定 的 单元 格 。 
(8) 保存 网 页 。 网 页 制作 完成 后 ， 选择“ 文件 ”| “另存 为 ” 命令， 将 网 页 保存 到 指定 位 置 。 


2.5 ”超级 链接 的 应 用 


当 网 页 设计 者 制作 完 网 页 后 ， 需 要 使 这 些 网 页 建立 起 关系 ， 做 好 彼此 之 间 的 链接 。 这 种 链 
接 也 可 能 是 HTML 文件 同 其 他 类 型 文件 之 间 的 链接 。 

Dreamweaver 提供 多 种 创建 超 链接 的 方法 ， 可 创建 到 文档 、 图 像 、 多 媒体 文件 或 可 下 载 软 
件 的 链接 ， 还 可 以 创建 到 文档 内 任意 位 置 的 任何 文本 或 图 像 的 链接 ， 包 括 标题 、 列 表 、 表 、 绝 
对 定位 的 元 素 和 框架 中 的 文本 或 图 像 。 

本 节 将 制作 带 有 超级 链接 的 “金陵 十 二 饮 图 谱 ”页面 ， 完 成 后 的 2-4.html 网 页 ， 其 效果 如 
2-27 所 示 。 


金陵 二 二手 周详 





图 2-27 “金陵 十 二 色 图 谱 ” 页 面 


(1) 新 建 网 页 。 新 建 一 个 网 页 ， 在 标题 栏 中 输入 “金陵 十 二 包 图 谱 ”。 

(2) 插入 标题 表格 。 插 入 1 行 1 列表 格 ， 将 宽度 设置 为 80%， 使 表格 可 以 根据 浏览 器 的 情 
况 调 整 大 小 。 插 入 表格 后 选中 整个 表格 ， 在 “属性 ”面板 中 设置 对 齐 方式 为 居中 对 齐 ， 填 充 、 
间距 和 边框 均 设 为 0。 将 光标 放置 于 单元 格 中， 输入 文字 “金陵 十 二 饮 图 谱 ”， 选 中 文字 ， 在 
下 方 的 “属性 ”面板 中 设 定 字体 为 “华文 行 档 ”， 大 小 为 16pt， 文 字 颜色 为 #6b2ee9， 文 字 对 
齐 方式 为 居中 ， 单 元 格 高 度 为 40px。 
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(3) 插入 主体 表格 。 插 入 4 行 11 列表 格 , 依次 填充 图 片 和 文字 , 图 片 的 宽 、 高 设置 为 100px 
和 250px， 文 字 大 小 为 9pt， 文 字 颜色 为 #6b2ee9， 文 字 对 齐 方式 为 居中 。 

(4) 图 片 超级 链接 。 选 中 “ 史 湘 云 ”图 片 ， 直 接 在 “属性 ”面板 中 单 击 “ 链 接 ” 文 本 框 右 
侧 的 文件 夹 图 标 豆 ， 以 通过 浏览 选择 一 个 文件 (shixiangyun.jpg)， 选 择 链接 的 文件 如 图 2-28 
所 示 。 
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图 2-28 浏览 选择 链接 图 片 

在 “目标 ”下 拉 列 表 框 中 ， 选 择 文档 的 打开 位 置 。“ 目 标 ” 下 拉 列 表 框 中 的 各 选项 含义 
如 下 。 

@  _blank: 选择 此 选项 时 将 在 一 个 未 命名 的 新 浏览 器 窗口 中 载 入 所 链接 的 文档 。 

@  _parent: 选择 此 选项 时 ， 如 果 是 嵌 套 的 框架 ， 链 接 会 在 父 框架 中 打开 ， 如 果 不 是 嵌 套 

的 框架 ， 则 等 同 于 _ top， 在 整个 浏览 器 窗口 中 显示 。 

@ self: 这 是 浏览 器 的 默认 选项 , 将 会 在 当前 网 页 所 在 的 窗口 或 框架 中 打开 链接 的 网 页 。 

@ top: 选择 此 选项 时 将 会 在 完整 的 浏览 器 窗口 中 打开 网 页 。 

设置 完成 后 ，“ 属 性 ”面板 如 图 2-29 所 示 。 
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图 2-29 设置 超级 链接 的 “属性 ”面板 
若 用 户 在 浏览 网 页 时 , 单 击 带 有 链接 的 文字 或 图 片 , 就 会 跳 转 到 链接 所 指向 的 文件 或 网 站 。 
带 有 链接 的 文字 或 图 片 称 为 “链接 源 端点 ”， 而 跳 转 到 的 地 方 称 为 “链接 目标 端点 ”， 根 据 后 


者 的 不 同 ， 超 级 链接 主要 分 为 以 下 几 种 。 
@ ”内 部 链接 : 这 种 链接 的 目标 端点 是 本 站 中 的 其 他 文档 。 利 用 这 种 链接 ， 可 以 跳 转 到 本 


站 点 其 他 的 页 面 上 。 
@ ”外 部 链接 : 这 种 链接 的 目标 端点 是 本 站 点 之 外 的 站 点 或 文档 。 利 用 这 种 链接 ， 可 以 跳 


转 到 其 他 的 网 站 上 。 
@ E-mail 链接 : 单 击 这 种 链接 , 可 以 启动 电子 邮件 程序 书写 邮件 , 并 发 送 到 指定 的 地 址 。 
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@ 锚 点 链接 : 这 种 链接 的 目标 端点 是 文档 中 的 命名 锚 ， 利 用 这 种 链接 ， 可 以 跳 转 到 当前 
文档 中 的 某 一 指定 位 置 上 ， 也 可 以 跳 转 到 其 他 文档 中 的 某 一 指定 位 置 上 。 
(5) 文字 超级 链接 。 
选中 “ 史 湘 云 ” 文 字 ， 这 里 也 可 以 使 用 拖 动 鼠标 指向 文件 的 方法 ， 拖 动 “ 链 接 ” 文 本 框 右 
侧 的 “指向 文件 ”按钮 厄 到 “文件 ”面板 上 的 相应 网 页 文件 ， 则 链接 到 这 个 网 页 ， 如 图 2-30 
所 示 ， 拖 动 鼠标 时 会 出 现 一 条 带 箭头 的 线 ， 指 示 要 拖 动 的 位 置 。 指 向 文件 后 只 需要 释放 鼠标 ， 
即 会 自动 生成 链接 。 





图 2-30” 拖 动 指向 链接 页 面 


打开 方式 选择 在 当前 窗口 打开 ， 通 过 设置 点 击 文字 可 以 链接 到 介绍 史 湘 云 的 具体 页 面 。 

由 于 页 面 内 容 较 长 ， 为 了 方便 浏览 者 查看 感 兴趣 的 内 容 ， 可 以 创建 到 页 面 中 某 位 置 的 超级 
链接 ， 用 户 点 击 超级 链接 后 ， 可 以 跳 转 到 这 一 页 面 的 某 一 指定 位 置 上 ， 这 称 为 锚 点 链接 。 下 面 
介绍 创建 锚 点 链接 的 基本 步骤 ， 完 成 后 的 网 页 保存 为 2-5.html。 

创建 锚 点 链接 的 过 程 分 两 步 。 

第 一 步 : 创建 命名 锚 记 。 即 在 文档 中 设置 位 置 标记 ， 并 给 该 位 置 一 个 名 称 ， 以 便 引 用 。 将 
光标 定位 在 “ 曲 : 乐 中 悲 ”处 ， 选择 “插入 ”面板 组 中 的 “常用 ”|“ 命 名 锚 记 ”按钮 圈 ， 
如 图 2-31 所 示 。 

在 弹出 的 “命名 锚 记 ”对 话 框 中 输入 该 锚 记 的 名 称 c( 注 意 : 区 分 大 小 写 )， 然 后 单 击 “ 确 
定 ” 按 钮 ， 名 为 c 的 锚 点 即 被 插入 到 文档 中 的 相应 位 置 ， 如 图 2-32 所 示 。 

创建 了 命名 锚 记 后 ， 在 页 面 上 相应 位 置 就 做 上 了 标记 。 

第 二 步 : 创建 到 命名 锚 记 的 链接 。 

选择 要 创建 链接 的 文本 或 图 像 ， 在 “属性 ”面板 的 “链接 ”文本 框 中 ， 输 入 # 号 和 锚 记 名 
称 c。 本 例 中 选中 页 首 的 “ 曲 ” 字 ， 在 “属性 ”面板 的 “链接 ”文本 框 中 输入 加。 这 样 锚 点 链 
接 制作 就 完成 了 ， 当 单 击 页 首 的 “ 曲 ” 字 时 ， 页 面 将 跳 转 到 锚 记 所 设置 的 页 面 位 置 。 
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图 2-31 将 光标 定位 后 单 击 “命名 锚 记 ”按钮 图 2-32 “命名 锚 记 ”对 话 框 


2.6 页面 布 局 的 应 用 


前 面 介绍 过 利用 表格 进行 页 面 布局 ， 本 节 主 要 介绍 利用 AP 元 素 (绝对 定位 元 素 ) 进 行 布局 。 
AP 元 素 是 分 配 有 绝对 位 置 的 HTML 页 面 元 素 ， 具 体 地 说 ， 就 是 <div> 标 签 或 其 他 任何 标签 。 
AP 元 素 可 以 包含 文本 、 图 像 或 其 他 任何 可 放置 到 HTML 文档 正文 中 的 内 容 。 

AP 元 素 的 出 现 对 于 对 表格 使 用 不 熟 的 网 页 设计 者 很 实用 。 使 用 AP 元 素 ， 不 仅 页 面 布局 
时 可 以 像 搭 积木 一 样 通过 层 放置 页 面 元 素 ， 如 果 有 觉得 不 合适 之 处 ， 通 过 拖 动 AP 元 素 带 动 页 
面 元 素 到 其 他 的 位 置 即 可 。 下 面 利 用 AP 元 素 制作 网 页 “ 史 湘 云 ”。 完 成 后 的 2-5.html 网 页 ， 








其 效果 如 图 2-33 所 示 。 
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图 2-33 “ 史 湘 云 ”页 面 
(1) 新 建 网 页 。 新 建 一 个 网 页 ， 在 标题 栏 中 输入 “ 史 湘 云 ”。 
(2) 标题 与 小 导航 制作 。 标 题 “ 史 湘 云 ”和 小 导航 的 制作 使 用 “插入 记录 ”|“ 布 局 对 象 ” 
1“Div 标签 ”， 在 其 中 添加 相应 的 文字 ， 并 设置 好 文字 颜色 与 大 小 。 
G3) 创建 放置 文字 的 AP Div。 利用 “插入 ” 栏 的 “布局 ”类 中 的 “绘制 AP Div” 按 钮 到 
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绘制 AP Div， 在 其 中 插入 “人 物 简介 ”文字 。 设 置 完 成 后 的 “属性 ”面板 如 图 2-34 所 示 。 
NR 
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图 2-34 “人 物 简 介 ”AP Div“ 属 性 ”面板 


页 面 中 的 “ 判 词 ”“ 曲 ”“ 鉴 赏 ”等 部 分 的 文字 也 使 用 相同 的 方法 制作 。 

AP Div“ 属 性 ”面板 中 的 各 选项 的 含义 如 下 。 

@ “CSS-P 元 素 ”: 此 下 拉 列 表 框 可 为 选 定 的 AP 元 素 指定 一 个 IDP。AP 元 素 名 称 中 不 
能 带 有 符号 和 汉字 ， 也 不 能 以 数字 开头 ， 只 能 是 英文 字母 和 数字 。 每 个 AP 元 素 都 必 
须 有 各 自 的 唯一 外。 

“ 左 ” 和 “上 ”: 这 两 个 文本 框 用 来 设置 当前 AP 元 素 相对 于 页 面 或 父 层 的 左上 角 距离 。 


. 
e@ “ 宽 ” 和 “高 ”: 这 两 个 文本 框 用 来 指定 AP 元 素 的 宽度 和 高 度 。 
@ 。 “Z 轴 ”: 此 文本 框 用 来 设置 当前 AP 元 素 的 层次 属性 值 。 可 以 把 整个 网 页 的 页 面 看 


成 X-Y 平 面 ， 把 网 页 上 AP 元 素 的 Z 轴 值 看 成 Z 轴 的 坐标 值 。 这 个 值 决 定 了 当前 AP 
元 素 放置 在 哪个 层面 上 。 通 常 ，Z 轴 值 大 的 AP 元 素 放 在 上 面 ，Z 轴 值 小 的 AP 元 素 
放 在 下 面 。 

@ “可见 性 ”: 此 下 拉 列 表 框 用 来 设置 AP 元 素 的 可 见 性 。 下 拉 列 表 框 中 的 4 个 选项 分 
别 是 :Default( 默 认 状 态 )、Inherit( 使 用 AP 元 素 的 父 级 的 可 见 性 属性 )、Visible( 显 示 
AP 元 素 的 内 容 )、Hidden( 隐 藏 AP 元 素 的 内 容 )。 


@ “背景 图 像 ”和 “背景 颜色 ”: 这 两 个 选项 用 来 设置 AP 元 素 的 背景 图 片 和 背景 颜色 。 
@ “类 ”: 此 下 拉 列 表 框 可 指定 用 于 设置 AP 元 素 的 样式 的 CSS 类 。 
@ “溢出 ”: 此 下 拉 列 表 框 可 确定 当前 AP 元 素 的 内 容 超出 AP 元 素 指 定 范围 时 处 理 的 


方式 。 其 中 溢出 部 分 的 处 理 的 4 个 选项 分 别 为 Visible( 增 加 层 AP 元 素 尺 寸 ， 显 示 超 
出 部 分 的 内 容 )、Hidden( 保 持 AP 元 素 尺 寸 不 变 ， 隐 藏 超出 部 分 的 内 容 )、Scroll( 增 加 
滚动 条 )、Auto( 当 内 容 超 出 层 AP 元 素 尺寸 时 ， 自 动 增加 滚动 条 )。 
e@ “剪辑 ”: 此 选项 组 用 来 设置 AP 元 素 的 可 视 区 域 , 在 “ 左 ”“ 上 ”“ 右 ”“ 下 ” 文 
本 框 中 ， 输 入 的 数值 表示 AP 元 素 可 视 区 域 与 AP 元 素 左 、 上 边界 之 间 的 距离 。 
(4) 创建 放置 图 片 的 AP Div。 在 网 页 的 右 侧 放置 一 列 图 片 , 每 张 图 片 都 是 放 在 一 个 AP Div 
中 。 利 用 “插入 ” 栏 的 “布局 ”类 中 的 “绘制 AP Div” 按 钮 到 ,绘制 AP Div， 在 其 中 插入 “ 湘 
云 醉酒 ”等 图 片 ， 设 置 后 的 “属性 ”面板 如 图 2-35 所 示 。 
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图 2-35 设置 图 片 AP Div 的 “属性 ”面板 


其 他 图 片 设置 方法 与 此 相同 ， 图 像 与 AP Div 宽度 均 为 120px。 
(5) 对 齐 同 列 的 AP Div。 按 Shift 键 选中 一 列 所 有 的 层 ， 依 次 单 击 “ 修 改 ”|“ 排 列 顺序 ”| 
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“设置 宽度 相同 ”和 “对 齐 ”， 注 意 所 选 的 所 有 AP Div 与 最 后 一 个 选中 的 AP Div 对 齐 和 帘 
度 一 致 。 

(6) 设置 锚 点 链接 。 按 照 上 一 节 的 方法 ， 为 小 导航 上 的 文字 与 相应 部 分 文字 建立 页 内 锚 
点 链接 。 

(7) 保存 网 页 。 网 页 制作 完成 后 ， 选 择 “ 文 件 ”| “另存 为 ”命令 ,将 网 页 保存 到 指定 位 置 。 


2.7 ”表单 的 应 用 


表单 提供 了 从 用 户 那 里 收集 信息 的 方法 。 表单 可 以 用 于 调查 、 订 购 、 搜 索 等 功能 。 一 般 的 
表单 由 两 部 分 组 成 : 一 是 描述 表单 元 素 的 HTML 源 代码 ， 二 是 客户 端的 前 台 脚 本 ， 或 者 服务 
器 用 来 处 理 用 户 所 填 信 息 的 后 台 脚本 程序 。 

使 用 Dreamweaver 可 以 创建 带 有 文本 域 、 密 码 域 、 单 选 按钮 、 复 选 框 、 弹 出 式 菜单 、 可 单 
击 按钮 以 及 其 他 表单 对 象 的 表单 。 

本 节 利 用 表单 制作 的 “红楼 人 物 留言 簿 ”页 面 ， 完 成 后 的 2-6.html 网 页 ， 其 效果 如 图 2-36 
所 示 。 


EEC 


| 基 


红榜 人 物 颖 目 开 人 至今 外 有 各 方 大 力 冯 持 ， 逢 户 各 位 提 更 多 会 身家 见 使 况 站 块 速 展 ， 


wh:[ 














图 2-36 “红楼 人 物 留言 筹 ”页 面 


(1) 新 建 网 页 。 新 建 一 个 网 页 ， 在 标题 栏 中 输入 “红楼 人 物 栏 目 调查 ”。 
(2) 插入 表单 。 选 择 “ 插 入 ” 栏 中 “表单 ”类 别 ， 单 击 “ 表 单 ”按钮 回 ， 在 页 面 中 插入 表 
单 。 插 入 表单 后 ， 在 文档 窗口 中 出 现 红色 虚 框 线 ， 如 图 2-37 所 示 。 


2-37 ”插入 一 个 空白 表单 


NN 





添加 表单 后 ，Dreamweaver 会 自动 生成 <form></form> 标 签 。 如 果 没 有 插入 空白 表单 ， 就 
直接 在 文档 中 插入 表单 对 象 ， 则 Dreamweaver 会 出 现 一 个 提示 框 ， 如 图 2-38 所 示 ， 提 示 是 否 
需要 为 插入 表单 对 象 添加 表单 标签 ， 单 击 “ 是 ”按钮 ，Dreamweaver 会 自动 为 插入 的 表单 对 象 
添加 上 表单 标签 。 

(3) 插入 主体 表格 。 

在 表单 中 插入 8 行 2 列 的 表格 ， 宽 度 为 80%， 居 中 对 齐 ; 第 一 、 二 行 合并 单元 格 ， 分 别 输 
入 标题 文字 “红楼 人 物 留言 短 ” 和 希望 语 。 

(4) 插入 单行 文本 域 。 

文本 域 是 表单 元 素 里 应 用 较 多 的 一 个 对 象 ， 可 以 在 文本 域 输入 任何 类 型 的 文本 、 字 母 或 数 
。 文 本 域 有 3 种 类 型 : 单行 文本 域 、 多 行文 本 域 、 密 码 域 。 输 入 的 文本 可 以 显示 为 单行 、 多 
行 、 星 号 ， 其 中 ， 在 密码 域 中 输入 的 文本 将 显示 为 星 号 。 

插入 方法 : 选择 “插入 记录 ”|“ 表 单 ”|“ 文 本 域 ”命令 ， 或 单 击 “ 插 入 ” 栏 中 “表单 ” 
类 别 的 “文本 域 ”按钮 局 |。 

分 别 在 昵称 、E-mail、 城 市 、 年 龄 同行 单元 格 中 插入 单行 文本 域 ， 其 中 昵称 行 如 图 2-39 
所 示 。 
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2-38 ”是 否 添加 表单 标签 提示 框 2-39 ”插入 单行 文本 域 
设置 单行 文本 域 的 “属性 ”面板 如 图 2-40 所 示 。 





图 2-40 单行 文本 域 的 “属性 ”面板 


其 中 “文本 域 ” 选 项 用 来 输入 文本 域 的 名 称 ， 即 变量 名 ， 以 便 在 后 台 处 理 程序 中 提取 或 传 
送 其 中 的 信息 。“ 字 符 宽度 ”选项 用 来 设置 最 多 可 显示 的 字符 数 。 此 数字 决定 了 文本 框 的 宽度 。 
此 例 的 字符 宽度 为 20。“ 最 多 字符 数 ” 选 项 用 来 设置 单行 文本 域 中 最 多 可 输入 的 字符 数 。“ 类 
型 ”选项 组 用 来 指定 域 的 类 型 为 单行 、 多 行 还 是 密码 域 。 此 例 选择 为 单行 。 

(5) 插入 多 行文 本 域 。 

在 留言 同行 单元 格 中 插入 多 行文 本 域 。 设 置 多 行文 本 域 的 “属性 ”面板 如 图 2-41 所 示 。 

“ 行 数 ”设置 多 行文 本 域 的 高 度 ， 此 例 中 文本 域 的 高 度 为 6 行 ， 字 符 宽度 为 40。 

(6) 插入 按钮 。 

按钮 控制 表单 的 操作 。 使 用 按钮 可 将 表单 数据 提交 到 服务 器 ， 或 者 重 置 该 表单 。 标 准 表单 
按钮 通常 有 提交 、 重 置 、 普 通 3 种 类 型 。 


M/E Ye 
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图 2-41 多 行文 本 域 的 “属性 ”面板 


插入 按钮 的 方法 : 选择 主 菜 单 中 的 “插入 记录 ”|“ 表 单 ”|“ 按 钮 ”命令 ， 或 单 击 “ 插 入 ” 


栏 “表单 ”类 别 中 的 “按钮 ”图 标 jj， 或 将 该 按钮 拖 放 到 文档 编辑 窗口 。 
在 表格 的 最 后 一 行 ， 插 入 两 个 按钮 ， 效 果 如 图 2-42 所 示 。 
按钮 设置 后 的 “属性 ”面板 如 图 2-43 和 图 2-44 所 示 。 

















国 所 名 称 信 科 于 动心 提交 表单 。 人 无 类 @[c 可 g 
Submit 个 重 设 表单 
完成 | 。 重 填 
图 2-42 按钮 图 2-43 ”提交 按钮 的 “属性 ”面板 
| 六 值 如 十 项 动作 玉 提 表单 。 个 无 类 @[。 ”可 o 
Frm 个 重 设 表单 


图 2-44 重 置 按钮 的 “属性 ”面板 


通过 该 属性 面板 可 以 方便 地 对 按钮 属性 进行 修改 。 各 选项 介绍 如 下 。 
e@ ”按钮 名 称 : 在 该 文本 框 中 指定 按钮 名 称 。 


@ ”动作 : 在 该 选项 组 中 选择 下 列 选项 之 一 ， 设 置 不 同类 型 的 按钮 。“ 提 交 表 单 ”: 当 单 
击 该 按钮 时 将 提交 表单 数据 进行 处 理 ， 该 数据 将 被 提交 到 表单 的 “action” 属 性 中 指 


定 的 页 面 或 脚本 。“ 重 设 表单 ”: 选择 该 项 时 ， 按 钮 的 标签 变 为 “ 重 填 ” 


， 重 置 表单 


的 作用 是 当 单 击 该 按钮 时 将 清除 该 表单 的 内 容 。“ 无 ”: 选择 该 项 时 ， 该 按钮 的 标签 
变 为 “按钮 ”， 这 种 普通 按钮 的 作用 在 于 可 以 自己 指定 单 击 该 按钮 时 要 执行 的 操作 。 


这 些 操作 可 以 通过 添加 行为 等 方式 进行 。 


(7) 保存 网 页 。 网 页 制作 完成 后 ， 选择“ 文件 ”| “另存 为 ” 命令， 将 网 页 保存 到 指定 位 置 。 


2.8 CSS 样式 


CSS 是 Cascading Style Sheets( 层 登 样式 表单 ) 的 简称 ， 它 是 一 种 设计 网 页 样式 的 工具 。 层 
登 的 意思 就 是 当 在 HIML 文件 中 引用 数 个 定义 样式 的 样式 文件 (CSS 文件 ) 时 , 若 数 个 样式 文件 
间 所 定义 的 样式 发 生 冲 突 ， 将 依据 层次 顺序 (Cascading Order) 处 理 。CSS 对 设计 者 来 说 是 一 种 
简单 、 灵 活 、 易 学 的 工具 ， 能 使 任何 浏览 器 都 听从 指令 ， 知 道 该 如 何 显 示 元 素 及 其 内 容 。 





在 默认 情况 下 ，Dreamweaver 使 用 层 登 样式 表 (CSS) 设 置 文本 格式 。 可 以 使 用 


“属性 ” 检 


查 器 或 菜单 命令 设置 文本 的 样式 从 而 创建 CSS 规则 ， 这 些 规 则 嵌入 在 当前 文档 的 头 部 。CSS 


NN 
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样式 可 以 更 加 灵活 并 更 好 地 控制 页 面 外 观 一 一 从 精确 的 布局 定位 到 特定 的 字体 和 文本 样式 。 
可 以 使 用 “CSS 样式 ”面板 创建 和 编辑 CSS 规则 和 属性 。“CSS 样式 ”面板 是 一 个 比 属 


性 检查 器 强大 得 多 的 编辑 器 ， 它 显示 为 当前 文档 定义 的 所 有 CSS 规则 ， 而 不 管 这 些 规 则 是 嵌 
入 在 文档 的 头 部 还 是 在 外 部 样式 表 中 。 


2.8.1 CSS 的 类 型 




















1. 可 定义 的 CSS 样式 表 的 类 型 


在 Dreamweaver 中 可 以 定义 下 列 类 型 的 CSS 样式 表 。 

1)” 自 定义 CSS 样式 

自 定义 CSS 样式 (也 称 为 类 样式 )， 可 以 将 样式 属性 设置 为 任何 文本 范围 或 文本 块 。 

2) ”HTML 标签 样式 

HTML 标签 样式 ， 用 于 重新 定义 特定 标签 ， 如 Hl 的 格式 。 创 建 或 更 改 Hl 标签 的 CSS 样 
式 时 ， 所 有 用 Hl 标签 设置 了 格式 的 文本 都 立即 更 新 。 

3) ”CSS 选择 器 样式 

CSS 选择 器 样式 重 定义 特定 标签 组 合 的 格式 (如 每 当 H2 标 题 出 现在 表格 单元 格 内 时 都 应 用 
td h2)， 或 重 定义 包含 特定 id 属性 的 所 有 标签 的 格式 。 


2. CSS 样式 在 网 页 文档 中 的 存在 方式 


CSS 样式 在 网 页 文档 中 有 以 下 3 种 存在 方式 。 

1) ”外 部 文件 方式 

外 部 CSS 样式 文件 是 一 系列 存储 在 一 个 单独 的 外 部 文件 .css 文件 (并 非 HTML 文件 ) 中 的 
CSS 样式 。 利 用 文档 head 部 分 中 的 链接 ， 该 文件 被 链接 到 Web 站 点 中 的 一 页 或 多 页 上 。CSS 
文件 利用 在 Dreamweaver 的 “窗口 ”菜单 下 的 “CSS 样式 ”选项 来 创建 。 如 果 熟 悉 CSS 属性 ， 
可 直接 在 记事 本 文件 里 编写 ， 最 后 的 文件 扩展 名 为 CSS。 

在 Dreamweaver 中 的 CSS 样式 面板 中 ， 单 击 “ 附 加 样式 表 ” 按 钮 ， 可 链接 一 个 CSS 文件 。 

这 种 方法 最 适合 大 型 网 站 的 CSS 样式 定义 。 应 用 CSS 文件 的 一 个 最 大 优点 就 是 ， 可 以 在 
每 个 HTML 文件 中 引用 这 个 文件 ， 从 而 可 使 整个 站 点 的 HIML 文件 在 风格 上 保持 一 致 ， 避 免 
重复 的 CSS 属性 设置 。 另 外 ， 当 遇 上 改版 或 做 某 些 重大 调整 要 对 风格 进行 修改 时 ， 可 直接 修 
改 这 个 CSS 文件 ，HTML 文件 一 直 引 用 最 近 更 新 的 样式 单 ， 而 不 必 每 个 HTML 文件 都 进行 
修改 。 

2) “内 部 文档 头 方式 

内 部 (或 嵌入 式 )CSS 样式 表 是 一 系列 包含 在 HTML 文档 head 部 分 的 style 标签 内 的 CSS 样 
式 。 这 种 方式 与 外 部 文件 方式 区 别 在 于 ， 这 种 方式 是 将 风格 直接 定义 在 文档 头 <head></head> 
之 间 ， 而 不 是 形成 文件 。 这 种 风格 定义 产生 作用 也 只 局 限于 本 文件 。 

这 种 方式 的 主要 用 处 是 ， 在 一 些 方面 统一 风格 的 前 提 下 ， 可 针对 有 具体 页 面 进行 具体 调整 。 
这 两 种 方式 并 不 相互 排斥 ， 而 且 相 互 结合 。 

3) ”直接 插入 式 

直接 插入 式 很 简单 ， 只 需要 在 每 个 HIML 标签 后 书写 CSS 属性 即 可 。 这 种 方式 主要 用 于 
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对 有 具体 的 标签 进行 具体 的 调整 ， 其 作用 的 范围 只 限于 本 标签 。 
2.8.2 CSS 在 Dreamweaver 中 的 创建 方法 


在 Dreamweaver 中 ， 创 建 CSS 样式 的 途径 有 以 下 几 种 。 

(1) 在 “页 面 属性 ”中 设置 。 

通过 前 面 的 学 习 ， 读 者 对 “页 面 属性 ”已 不 再 陌生 。 利 用 “页 面 属性 ”设置 的 网 页 属性 ， 
实际 上 是 一 种 CSS 内 部 文档 头 方式 的 应 用 ，Dreamweaver 自动 将 “页 面 属性 ”设置 生成 一 段 
CSS 样式 代码 ， 置 于 <head> 与 </head> 之 间 。 

(2) 文本 编辑 。 

Dreamweaver 在 属性 检查 器 中 有 “样式 ”选项 ， 这 一 选项 的 功能 是 在 设计 页 面 时 进行 添加 
字体 、 设 置 颜色 、 大 小 等 样式 操作 时 ，“ 样 式 ” 中 套用 样式 。 表 格 同样 可 以 在 “属性 ”面板 中 
设置 CSS。“ 属 性 ”面板 中 都 有 一 个 类 别 (Class)， 在 这 里 就 可 以 设计 表格 的 CSS 样式 。 有 了 这 
个 功能 ， 在 进行 网 页 设计 时 可 以 大 大 提高 工作 效率 。 

(3) “CSS 样式 ”面板 。 

“CSS 样式 ”面板 集成 在 CSS 面板 组 中 ， 在 此 面板 中 可 以 方 
便 地 进行 CSS 样式 的 添加 、 编 辑 、 查 看 属性 和 删除 等 样式 的 管理 。 

Dreamweaver CS3 将 全 部 CSS 功能 合并 到 一 个 面板 集合 中 ， 
并 已 得 到 增强 。 它 可 以 更 加 轻松 、 更 有 效率 地 使 用 CSS 样式 。 使 
用 新 的 界面 可 以 更 方便 地 看 到 应 用 于 具体 元 素 的 样式 层 营 ， 从 而 
能 够 轻松 地 确定 在 何 处 定义 了 属性 。 

可 以 通过 以 下 几 种 方法 打开 “CSS 样式 ”面板 : 选择 “窗口 ” 
|“CSS 样式 ”命令 ; 按 ShifttF11 组 合 键 ， 单 击 “ 属 性 ”面板 中 恩 所 = 
的 CSS 按钮 。“CSS 样式 ”面板 如 图 2-45 所 示 。 图 2-45 “CSS 样式 ”面板 

可 以 看 到 “CSS 样式 ”面板 分 为 上 下 两 部 分 ， 上 半 部 分 显示 
规则 列表 ， 下 半 部 分 显示 所 选 定 的 规则 的 属性 。 规 则 又 有 “全 部 ”和 “正在 ”两 种 查看 方式 ， 
单 击 CSS 面板 中 的 “全 部 ”标签 ， 窗 口中 显示 当前 文档 中 定义 的 规则 以 及 附加 到 当前 文档 的 
样式 表 中 定义 的 所 有 规则 的 列表 ; 单 击 CSS 面板 中 的 “正在 ”标签 ， 可 以 显示 当前 所 选中 内 
容 的 CSS 摘要 。 

CSS 面板 下 方 有 一 排 按钮 ， 它 们 的 含义 分 别 介绍 如 下 。 

e@ ” “类别” 图标 写 : 将 Dreamweaver 支持 的 CSS 属性 划分 为 8 个 类 别 : 字体 、 背 景 、 
区 块 、 边 框 、 方 框 、 列 表 、 定 位 和 扩展 ， 单 击 此 按钮 将 显示 相关 的 类 别 列表 。 每 个 类 

别 的 属性 都 包含 在 一 个 列表 中 ， 可 以 单 击 类 别名 称 旁 边 的 加 号 (+) 按 钮 展开 或 折 

县 它 。 

@ “列表 ?图标 鲜 : 单 击 此 按钮 将 按 字 母 顺 序 显 示 Dreamweaver 所 支持 的 所 有 CSS 
属性 。 

e@ “设置 属性 ”图 标 冲 : 单 击 此 按钮 将 仅 显 示 那 些 已 设置 的 属性 。 

@ “附加 样式 表 ” 按 钮 中: 单 击 此 按钮 将 打开 “链接 外 部 样式 表 ” 对 话 框 。 选 择 要 链接 

到 或 导入 到 当前 文档 中 的 外 部 样式 表 。 
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@ “新 建 CSS 规则 ”按钮 上 各: 单 击 此 按钮 将 弹出 “新 建 CSS 样式 ”对 话 框 ， 在 该 对 话 
框 中 可 以 选择 要 创建 的 样式 类 型 。 

e “编辑 样式 ”按钮 咒 : 单 击 该 按钮 ， 会 打开 “CSS 规则 定义 ”对 话 框 ， 在 该 对 话 框 中 
编辑 当前 文档 或 外 部 样式 表 中 的 样式 。 

@ “删除 CSS 规则 ”按钮 名: 单 击 该 按钮 ， 将 删除 “CSS 样式 ”面板 中 所 选 的 规则 或 
属性 ， 并 从 应 用 该 规则 的 所 有 元 素 中 删除 格式 。 


2.8.3 创建 新 的 CSS 样式 


1. 操作 步骤 


创建 新 的 CSS 样式 的 具体 操作 步骤 如 下 。 

(1) 打开 “新 建 CSS 规则 ”对 话 框 。 

将 插入 点 放 在 文档 中 ， 然 后 执行 以 下 操作 之 一 打开 “新 建 CSS 规则 ”对 话 框 。 

@ 在 “CSS 样式 ”面板 (“窗口 ”1“CSS 样式 ”) 中 , 单 击 面板 右 下 侧 中 的 “新 建 CSS 规 
则 ”(+) 按 钮 。 

@ 选择 “文本 ”|“CSS 样式 ”|“ 新 建 CSS 规则 ”命令 。 

(2) 定义 要 创建 的 CSS 样式 的 类 型 。 

@ ” 若 要 创建 可 作为 class 属性 应 用 于 文本 范围 或 文本 块 的 自 定义 样式 , 选择 “类 ”选项 ， 
然后 在 “名 称 ” 文 本 框 中 输入 样式 名 称 。 

@ 若 要 重 定义 特定 HTML 标签 的 默认 格式 设置 ， 选 择 “标签 ”选项 ， 然 后 在 “标签 ” 
文本 框 中 输入 一 个 HIML 标签 ， 或 从 弹出 式 菜单 中 选择 一 个 标签 。 

@ 若 要 为 具体 某 个 标签 组 合 或 所 有 包含 特定 ID 属性 的 标签 定义 格式 设置 ,选择 “高 级 ” 
选项 ， 然 后 在 “选择 器 ”文本 框 中 输入 
一 个 或 多 个 HTML 标签 , 或 从 下 拉 列 
表 中 选择 一 个 标签 。 下 拉 列 表 中 提供 的 
选择 器 ( 称 作伪 类 选择 器 ) 包 括 a:active、 
ahover、a:link 和 a:visited， 如 图 2-46 
所 示 。 

系统 中 默认 的 4 种 伪 类 选择 器 所 代表 的 含 

义 如 下 。 图 2-46 使 用 CSS 选择 器 

@ ”aiactive: 是 定义 页 面 中 的 文本 链接 被 激 
活 ， 在 目标 地 址 文件 还 没有 打开 时 ， 文 本 呈现 的 状态 。 

e@ alink: 是 当 鼠 标 不 在 链接 文本 上 时 链接 的 状态 。 默 认 是 蓝 色 文本 ， 带 下 划 线 。 

@ ahover: 是 鼠标 移动 到 链接 文本 上 时 链接 的 状态 。 默 认 的 是 鼠标 呈现 小 手 的 形状 。 

@ ”aivisited: 是 链接 目标 文件 打开 后 ， 再 一 次 回 到 原来 的 页 面 时 ， 刚 刚 单 击 的 链接 呈现 
的 状态 。 默 认 的 颜色 是 深 红色 。 

(3) 选择 定义 样式 的 位 置 。 

@ 若 要 创建 外 部 样式 表 ， 请 在 “定义 在 ”选项 组 中 选择 “新 建 样式 表 文 件 ”。 

@ 。 若 要 在 当前 文档 中 嵌入 样式 ， 请 在 “定义 在 ”选项 组 中 选择 “ 仅 对 该 文档 ”。 
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(4) 单 击 “ 确 定 ” 按 钮 ， 出 现 “CSS 规则 定义 ”对 话 框 。 
(5) 选择 要 为 新 的 CSS 规则 设置 的 样式 选项 。 

(6) 设置 完 样式 属性 后 ， 单 击 “ 确 定 ” 按 钮 。 

2. 应 用 案例 


本 节 将 制作 应 用 了 CSS 样式 的 “红楼 人 物 栏目 导航 ”页 面 ， 完 成 后 的 2-7.html 网 页 ， 其 效 
果 如 图 2-47 所 示 。 

(1) 新 建 网 页 。 

新 建 一 个 网 页 ， 在 标题 栏 中 输入 “红楼 人 物 栏目 导航 ”。 

(2) 表格 布局 。 

在 网 页 中 插入 2 行 1 列 的 表格 , 第 1 行 设置 单元 格 背 景 颜色 为 #CC66CC; 在 第 2 行 的 单元 
格 中 藤 套 了 一 个 16 行 1 列 的 表格 。 

(3) 添加 图 片 和 文字 。 

在 第 1 个 单元 格 中 输入 “红楼 人 物 ”， 在 “属性 ”面板 中 分 别 设置 大 小 与 颜色 ， 会 自动 生 
成 CSS 样式 ; 在 肉 套 表格 中 分 别 输入 修饰 小 图 片 和 文字 内 容 。 

(4) 文字 CSS 样式 。 

选中 嵌 套 表格 中 十 二 包 名 字 的 文字 ， 在 “属性 ”面板 中 设置 文字 大 小 为 9pt， 文 字 颜 色 为 
#6b2ee9， 会 自动 生成 CSS 样式 ， 如 图 2-48 所 示 。 

(5) 边框 CSS 样式 。 

创建 类 名 为 a 的 自 定义 样式 ， 设 定 表 格 左 、 右 和 下 边框 颜色 、 线 型 和 粗细 ， 有 具体 设 定 如 
图 2-49 所 示 。 
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2-47 ”使 用 CSS 样式 的 “红楼 2-48 文字 CSS 样式 2-49 边框 CSS 样式 
人 物 栏目 导航 ”页 面 


设置 好 样式 后 ， 将 样式 应 用 于 表格 ， 应 用 后 如 图 2-50 所 示 。 
<bodv>|<table. an tbody> <tr> <td> <table> <tbody> <tr> <td> <span. STYLE12><a> 


2-50 ”表格 应 用 边框 CSS 样式 效果 
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(6) 链接 CSS 样式 。 
为 “金陵 十 二 包 判 词 ”“ 人 金陵 十 二 饮 图 谱 ”“ 史 湘 云 ” 和 “调查 表 ” 设 置 超级 链接 。 通 过 
新 建 CSS 样式 设 定 链接 外 观 。 有 具体 设 定 后 的 情况 如 图 2-51 所 示 。 


CR foataight [bold 
text-decoration none text-decoration none text-decoration none 


图 2-51 ”从 左 到 右 为 链接 的 三 种 状态 的 样式 设置 
通过 图 2-51 可 知 ， 文 字 颜色 设置 为 #6b2ee9， 无 修饰 ， 当 鼠标 滑 过 时 ， 文 字 加 粗 。 
(7) 保存 网 页 。 
网 页 制作 完成 后 ， 选 择 “ 文 件 ”|“ 另 存 为 ”命令 ， 将 网 页 保存 到 指定 位 置 。 








2.9 使 用 框架 


框架 是 一 个 较 早 出 现 的 HTML 对 象 ， 框 架 提供 将 一 个 浏览 器 窗口 划分 为 多 个 区 域 ， 每 个 
区 域 都 可 以 显示 不 同 HTML 文档 的 方法 。 使 用 框架 的 最 常见 的 用 法 是 ， 将 一 些 不 需要 更 新 的 
元 素 放 在 一 个 框架 内 作为 单独 的 网 页 文档 ， 这 个 文档 是 不 变 的 ， 其 他 需要 经 常 更 新 的 内 容 放 在 
主 框架 内 。 这 就 非常 便于 完成 导航 工作 。 框 架 技术 一 直 被 普遍 应 用 于 页 面 导航 ， 它 可 以 让 网 站 
的 结构 更 加 清晰 。 

框架 由 两 部 分 组 成 : 框架 集 和 单个 框架 。 框 架 集 是 定义 框架 结构 的 HIML 页 面 ， 而 框架 
是 框架 集中 的 单个 区 域 ， 所 以 ， 框 架 集 是 框架 的 集合 。 


2.9.1 创建 框架 和 框架 集 


选择 “文件 ” |“ 新建” 命令， 打开 “新 建文 要 ”对 话 框 ， 在 类 别 列表 中 选择 “框架 集 ”， 
在 右 侧 的 框架 集 列 表 中 选择 一 种 框架 集 ， 单 击 “创建 ”按钮 ， 如 图 2-52 所 示 。 
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2-52 ”新 建 框架 集 
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在 Dreamweaver 中 ， 要 设置 框架 和 框架 集 的 属性 ， 必 须 先 选择 框架 或 框架 集 。 
可 以 使 用 下 列 方法 之 一 选择 框架 。 

@ 按 住 Alt 键 的 同时 ， 在 文档 窗口 中 单 击 框架 ， 选 中 框架 。 

@ 在 “框架 ”面板 中 单 击 框架 ， 则 选中 相应 的 框架 ， 如 图 2-53 所 示 。 





图 2-53 ”选中 框架 
可 以 使 用 下 列 方法 之 一 选择 框架 集 。 
@ ”在 文档 窗口 中 ， 单 击 框架 集中 任意 两 个 框架 的 边界 。 
@ ”在 “框架 ”面板 中 ， 单 击 框架 集 的 外 围 ， 如 图 2-54 所 示 。 





图 2-54 ”选中 框架 集 
2.9.2 ”设置 框架 和 框架 集 的 属性 


在 框架 和 框架 集 的 “属性 ”面板 中 ， 可 以 设置 框架 和 框架 集 的 属性 。 
选择 框架 后 ， 打 开 框架 的 “属性 ”面板 ， 如 图 2-55 所 示 。 





图 2-55 框架 的 “属性 ”面板 


NN 


第 2 章 Dreamweaver 基础 


在 框架 的 “属性 ”面板 中 设置 下 列 选项 。 

@ 框架 名 称 : 在 此 文本 框 中 输入 框架 的 名 称 。 注 意 ， 框 架 的 名 称 必须 以 字母 开头 ， 且 必 
须 是 单个 单词 ， 不 能 使 用 JavaScript 的 保留 字 ， 不 允许 出 现 空格 、 句 点 “.” 和 连 字符 
“一 ”， 但 允许 使 用 下 划 线 “_”。 

@ ” 源 文件 ， 在 此 文本 框 中 指定 框架 中 显示 的 文档 。 

e@ ” 演 动 : 在 此 下 拉 列 表 框 中 设置 是 否 在 框架 中 出 现 滚动 条 。 大 多 数 浏览 器 设置 为 “默认”; 
当 内 容 超出 框架 范围 和 时， 显示 深 动 条 。 

@ 不 能 调整 大 小 : 选中 该 复 选 框 ， 则 用 户 不 能 拖 动 框架 边框 以 改变 框架 的 大 小 。 

@ ”边框 : 在 此 下 拉 列 表 框 中 设置 是 否 显 示 显示 边框 ; 否 一 一 隐藏 边框 ; 
默认 一 一 根据 浏览 器 的 默认 设置 显示 框架 边框 。 

e@ ”边框 颜色 : 该 选项 用 来 设置 所 有 边框 的 颜色 。 

@ ”边界 宽度 : 在 此 文本 框 中 输入 以 像素 为 单位 的 数值 ,确定 框架 左边 框 和 右边 框 之 间 的 











距离 。 
@ 边界 高 度 : 在 此 文本 框 中 输入 以 像素 为 单位 的 数值 ， 确 定 框架 上 边框 和 下 边框 之 间 的 
距离 。 
选择 框架 集 后 ， 打 开 框 架 集 的 “属性 ”面板 ， 如 图 2-56 所 示 。 
TE 
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图 2-56 ”框架 集 的 “属性 ”面板 


在 框架 集 的 “属性 ”面板 中 设置 下 列 选项 。 
@ ”边框 : 在 此 下 拉 列 表 框 中 设置 是 否 显示 边框 。 
@ ”边框 宽度 : 在 此 文本 框 中 设置 框架 集中 所 有 框架 的 边框 宽度 。 
e@ ”边框 颜色 : 此 选项 用 来 设置 边框 颜色 ， 单 击 记 | 按钮 选取 颜色 , 或 在 文本 框 中 输入 颜色 
的 十 六 进 制 代码 。 
e@ 行列 选 定 范围 : 单 击 左 侧 或 顶部 的 标签 ， 选 择 行 或 列 。 
值 : 在 此 文本 框 中 指定 所 选择 的 行 或 列 的 高 度 。 
@ ”单位 : 在 此 下 拉 列 表 框 中 选择 适当 的 单位 :像素 一 一 输入 以 像素 为 单位 的 数值 ， 指 定 
所 选 行 或 列 的 绝对 大 小 ; 百分比 一 一 所 选择 行 或 列 相 对 于 框架 集 大 小 的 百分比 : 相 
i 间 后 ， 分 配 剩余 的 框架 空间 。 
链接 在 框架 中 应 用 较为 广泛 。 例如， 在 左 侧 框架 放置 导航 条 ， 单 击 导航 条 中 的 链接 ， 则 右 
侧 框架 中 显示 链接 内 容 ， 这 里 就 需要 将 导航 条 中 链接 的 目标 窗口 设置 为 右 侧 框架 窗口 。 
在 为 导航 部 分 添加 链接 时 ， 需 要 指定 链接 的 文件 在 哪个 窗口 中 打开 ,打开 窗口 的 指定 是 在 
链接 文本 的 “属性 ”面板 的 “目标 ”设置 框 中 进行 的 ， 如 图 2-57 所 示 。 
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在 默认 情况 下 ,， “目标 ”下 拉 列 表 框 中 总 有 4 个 选项 : _blank 一 一 在 新 的 窗口 中 打开 链接 ; 
_parent 一 一 在 当前 框架 的 父 框架 中 打开 链接 ; _self 一 一 在 当前 框架 中 打开 和 链接; _top 一 一 在 当前 
窗口 中 打开 链接 ， 将 清除 所 有 框架 。 

除了 以 上 几 个 目标 位 置 以 外 ， 还 可 以 在 “目标 ”下 拉 列 表 框 中 输入 当前 页 中 的 某 一 框架 名 
称 ， 那 么 指定 的 HIML 文件 就 在 指定 的 框架 中 打开 。 这 就 是 我 们 自己 创建 框架 集 时 ， 一 定 要 
给 每 个 框架 命名 的 原因 。 若 是 使 用 预定 义 的 框架 集 , 各 框架 的 名 称 已 自动 给 出 , 这 时 在 “目标 ” 
下 拉 列 表 中 可 直接 找到 。 

本 节 将 制作 利用 框架 的 “红楼 人 物 主体 ”页 面 ， 完 成 后 的 2-8.html 网 页 ， 其 效果 如 图 2-58 
所 示 。 
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图 2-58 使 用 框架 制作 的 “红楼 人 物 主体 ”页 面 


(1) 新 建 网 页 。 

新 建 一 个 网 页 ， 在 标题 栏 中 输入 “红楼 人 物 主 体 ”。 

(2) 新 建 框 架 集 。 

创建 框架 集 , 采用 左右 分 框架 的 方式 , 左 侧 为 红楼 人 物 栏目 导航 页 , 右 侧 为 相应 的 内 容 页 。 
左 侧 框架 链接 导航 页 ， 右 侧 框架 链接 内 容 页 ，“ 属 性 ”面板 如 图 2-59 和 图 2-60 所 示 。 





2-60 ” 右 侧 框架 内 容 页 设置 


SN 





(3) 调整 左右 框架 宽度 。 
根据 页 面 内 容 需 要 ， 调 整 左 右 框 架 的 宽度 ， 调 整 好 整个 框架 后 的 “属性 ”面板 如 图 2-61 
所 示 。 





2-61 ”框架 集 属性 设置 


(4) 设置 框架 链接 。 
为 左 侧 的 导航 页 设置 链接 ， 分 别 链接 到 相应 的 页 面 在 右 侧 框架 中 显示 。 如 图 2-62 所 示 为 
设置 链接 的 “属性 ”面板 ， 注 意 目标 窗口 一 定 要 选择 右 侧 框架 的 名 字 。 
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2-62 ”框架 链接 设置 


(5) 保存 网 页 。 
网 页 制作 完成 后 ， 选 择 “ 文 件 ”|“ 保 存 全 部 ”命令 ， 将 框架 页 及 框架 集 保存 到 指定 位 置 。 


2.10 综合 实例 


利用 前 面 所 介绍 的 内 容 制作 的 “ 梦 回 红楼 之 红楼 人 物 ” 页 面 ， 完 成 后 保存 为 2-9.html， 其 
效果 如 图 2-63 所 示 。 
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图 2-63 “ 梦 回 红楼 之 红楼 人 物 ” 页 面 


(1) 新 建 网 页 。 
新 建 一 个 网 页 ， 在 标题 栏 中 输入 “ 梦 回 红楼 之 红楼 人 物 ”。 
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(2) logo 的 制作 。 

利用 Photoshop 软件 制作 网 页 的 logo 蓝 县 系 持 国 

(3) 网 页 头 部 制作 。 

插入 2 行 1 列 的 表格 制作 网 页 的 头 部 ， 包 含 两 行 ， 一 行为 logo， 一 行为 整个 网 页 的 导航 。 
网 页 的 导航 采用 文字 形式 ， 中 间 用 竖 线 间 隔 ， 效 果 如 图 2-64 所 示 。 


匡 思 多 村 
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图 2-64 网 页 头 部 
(4) “用 户 登 录 ” 栏 制作 。 
插入 一 个 表格 ， 使 用 所 学 过 的 表单 知识 制作 “用 户 登 录 ” 栏 ， 效 果 如 图 2-65 所 示 。 


[用 户 登 录 ] 用 户 名 : 密码 : | 到 录 | 注册 | rsiag] 


图 2-65 “用 户 登 录 ” 栏 
(5) 网 页 主体 制作 。 
红楼 人 物 栏目 主体 内 容 已 经 在 2.8 节 中 制作 完成 ， 在 综合 网 页 中 利用 插入 页 面 元 素 这 ame 
内 部 框架 的 方式 将 已 经 制作 好 的 网 页 整合 进来 。 内 部 框架 这 ame， 可 以 实现 在 同一 页 面 中 开 一 
个 小 窗口 的 功能 ， 单 击 超级 链接 可 以 将 相应 的 页 面 在 这 ame 中 显示 。 


通过 选择 “插入 记录 ”|“ 标 签 ”命令 ， 打 开标 签 选择 窗口 ， 选 择 HTML 标签 中 的 “页 元 
素 ”， 找 到 过 ame， 如 图 2-66 所 示 。 


对 iframe 进行 设 定 ， 链 接 到 2-8.html 网 页 ， 有 具体 设置 如 图 2-67 所 示 。 























1 标签 ifrmey 二 
上 加， 标语 言 标 和 
De NL 标签 |[ 包 | 
辐 - ls 页 面 构成 lim 
由 -四 3 | 省 元 素 allowtransp. 
四 :格式 设 轩 币 局 application 
四 -机 列表 class 
由 8 表单 framebord no 
用 -加 表格 height 560px 
四 -可 有 本 配制 oa hspace 
由 -加 Chm 标签 Hi id 
困 ' 园 ASP.IET 标签 longdesc 
转生 J5P 标签 marginheight 
由 , 固 Jam 自 定义 库 marginwidth 
由 局 As? 标签 nane 
由 -加 pie 标签 scrolling Ho 
由 辐 m 标签 sre 2-8. htnl 
style border-style:none 
title 
上 ”标签 信息 。 | 地 | vspace 
帮助 00 播 AGC) | 关闭 吕 ) width 100% 
2-66 插入 iframe 标签 图 2-67 iframe 标签 属性 设置 


(6) 友情 链接 和 版 权 制 作 。 

网 页 的 底部 放置 了 友情 链接 和 版 权 等 说 明 。 

(7) 保存 网 页 。 

网 页 制作 完成 后 ， 选 择 “ 文 件 ”|“ 另 存 为 ”命令 ， 将 网 页 保存 到 指定 位 置 。 
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本 章 以 知识 点 为 基础 ， 通 过 分 步骤 对 实例 进行 详细 讲解 的 方式 重点 介绍 了 Dreamweaver 
的 表格 、AP 元 素 布 局 、 超 级 链接 、CSS 样式 应 用 以 及 框架 、 表 单 等 在 网 页 制作 中 的 具体 运用 。 
最 后 通过 一 个 综合 实例 进行 了 概括 总 结 ， 为 动态 网 页 的 制作 葛 定 了 坚实 的 基础 。 
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~ 
全 内容 摘 要 | awswract 


Active Server Pages (动态 服务 器 主页 , 简称 ASP) 是 一 套 由 微软 开发 的 服务 器 端 运行 的 脚本 
平台 。ASP 可 以 结合 HIML 网 页 、ASP 指令 和 ActiveX 元 件 建 立 动态 、 交 互 且 高 效 的 Web 
服务 器 应 用 程序 。ASP 本 身 并 不 提供 脚本 语言 ， 但 采用 VBScript 或 JScript 作为 开发 语言 。 
VBScript 语言 是 ASP ni 本 章 介 绍 VBScript 语法 基础 ， 并 通过 实例 进一步 巩固 
对 VBScript 脚本 语言 的 学 习 。 


/学 习 目 标 |owcewws 


掌握 VBScript 数据 类 型 。 
掌握 VBScript 的 运算 符 。 
掌握 VBScript 的 语句 。 

掌握 VBScript 的 过 程 和 函数 。 


3.1 VBScript 基础 


1. VBScript 的 主要 特点 


VBScript 的 全 称 是 Visual Basic Scripting Edition， 它 是 专业 编程 语言 Visual Basic 的 子 集 。 
VBScript 脚本 语言 具有 以 下 几 个 主要 特点 。 

(1) 易学 易 用 。 已 经 了 解 Visual Basic 或 Visual Basic for Applications， 就 会 很 快 熟 悉 
VBScript。 

(2) ActiveX 脚本 。VBScript 使 用 ActiveX 脚本 与 宿主 应 用 程序 对 话 ， 所 用 的 脚本 编写 引 
擎 是 vbscript.dll, 该 引擎 能 够 识别 VBScript 代码 ; 脚本 编写 宿主 是 使 用 脚本 编写 引擎 的 应 用 程 
序 ，Intemet Explorer 浏览 器 就 是 宿主 应 用 程序 的 一 个 例子 ， 它 通过 引擎 来 运行 脚本 。 

(3) 其 他 应 用 程序 和 浏览 器 中 的 VBScript。 开 发 者 可 以 在 其 产品 中 免费 使 用 VBScript 来 
实现 程序 。 

2. VBScript 在 客户 端 浏览 器 中 的 使 用 方法 


在 HIML 代码 中 ，VBScript 代码 需要 添加 在 <SCRIPT> 和 </SCRIPT> 标 记 之 间 。VBScript 
在 客户 端 浏览 器 中 的 使 用 方法 具体 如 下 : 

<html> 

<head> 

<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> 
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<title> 第 一 个 VBScript 例子 </title> 

</head> 

<body> 

<SCRIPT LANGUAGE="VBScript"> "脚本 代码 的 起 始 
<!—— 


MsgBox "欢迎 使 用 ASP 大 全 学 习 ! "' 弹 出 带 有 "欢迎 使 用 ASP 大 全 学 习 " 信 息 的 对 话 框 


一 -> 

</SCRIPT> "脚本 代码 的 结束 

</body> 

</html> 

对 以 上 代码 说 明 如 下 。 

(1) VBScript 代码 包含 在 <SCRIPT> 和 </SCRIPT> 标 记 之 间 。SCRIPT 标记 可 以 出 现在 
HTML 代码 中 的 任何 地 方 ， 但 是 最 好 将 SCRIPT 标记 放 到 HTML 代码 中 的 HEAD 部 分 ， 这 样 
可 以 使 VBScript 代码 集中 存放 。 

(2) LANGUAGE 属性 用 于 指定 所 使 用 的 脚本 语言 。 由 于 浏览 器 支持 多 种 脚本 语言 ， 所 以 
需要 指定 类 型 ， 否 则 浏览 器 不 能 正确 调用 引擎 解释 执行 的 脚本 。 上 面 的 例子 使 用 VBScript 作 
为 脚本 语言 。 

(3) 本 段 代 码 使 用 了 注释 标记 (<!-- 和 -->)。 如 果 浏 览 器 不 能 识别 <SCRIPT> 标 记 ， 注 释 标 
记 可 以 避免 将 代码 显示 在 页 面 中 。 

(4) MsgBox 方法 用 来 在 对 话 框 中 显示 消息 ， 并 返回 一 个 指示 用 户 单 击 的 按钮 。 

(5) 运行 这 段 代 码 时 ， 浏 览 器 解释 执行 该 段 代码 。 浏 览 器 运行 到 <SCRIPT> 标 记 ， 就 通过 
LANGUAGE 属性 ， 获 取 所 使 用 的 脚本 语言 。 浏 览 器 调用 VBScript 的 引擎 解析 这 些 脚本 代码 ， 
然后 脚本 引擎 执行 该 段 代码 。 

将 程序 保存 成 HTML 文件 ， 然 后 利用 浏览 器 直接 打开 ， 程 序 运行 的 结果 如 图 3-1 所 示 。 

当 用 户 访问 网 页 时 ， 被 嵌入 的 VBScript 代码 会 被 发 送 到 客户 端 浏览 器 。 用 户 可 以 在 客户 
端 查看 网 页 中 的 VBScript 代码 。 选 择 浏览 器 中 的 “查看 ”|“ 源 文件 ”命令 ， 在 新 打开 的 窗口 
中 ， 显 示 网 页 文件 的 HTML 代码 。 该 例 网 页 的 代码 如 图 3-2 所 示 。 








Vescript x 


欢迎 使 用 ASP 大 全 学 习 上 


图 3-1 第 一 个 例子 的 运行 结果 图 3-2 第 一 个 例子 的 查看 源码 界面 











3. 编写 VBScript 代码 需 遵 循 的 规则 


编写 VBScript 代码 需要 遵循 一 定 的 规则 ， 具 体 如 下 。 

(1) 一 行 代码 可 以 有 多 条 语句 ， 语 句 间 的 间隔 使 用 冒号 分 割 。 

(2) 一 行 代码 语句 也 可 以 分 在 多 行 编写 。 这 需要 在 行 末 加 上 续 行 符号 (一 般 使 用 下 划 线 )。 
下 面 是 使 用 续 行 符号 的 例子 。 代 码 中 的 & 为 连接 符号 ， 用 来 连接 两 个 字符 串 。 代 码 如 下 : 
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<SCRIPT LANGUAGE="VBScript"> 
i 
MsgBox "欢迎 使 用 "& 
"ASP 大 全 学 习 ! " 

一 -> 

</SCRIPT> 

(3) 注释 以 单 引 号 开始 。 注 释 既 可 以 出 现在 语句 后 面 ， 也 可 以 单独 成 为 一 行 。 下 面 是 使 用 
注释 的 例子 。 代 码 如 下 : 

<SCRIPT LANGUAGE="VBScript"> 

<!--- 这 是 单独 一 行 的 注释 

MsgBox Forml .InputText.value “' 显 示 InputText 输入 框 中 的 值 

-> 

</SCRIPT> 

下 面 是 本 书 的 第 一 个 VBScript 的 例子 。 这 个 例子 把 指定 的 字符 串 显示 在 页 面 中 。 代 码 
如 下 : 

<html> 

<head> 

<meta http-equiv="Content-Type" content="text/html; 

charset=gb2312"> 

<title> 第 一 个 ASP 例 子 </title> 

</head> 

<body> 

< 

Dim str 定义 三 个 变量 

str=" 这 是 一 个 ASP 的 值 为 : "& vbcrLf ' 设 置 str 的 内 容 

Response.write str "输出 str 的 内 容 

多 > 

</body> 

</html> 

这 是 一 个 ASP 文件, 文件 中 的 大 部 分 内 容 为 HTML 代码 。 ASP 代码 包含 在 “<%” 和 “%>” 
之 间 。 编 译 器 执行 该 文件 ， 运 行 到 符号 “<%” 时 ， 不 是 把 该 部 分 的 代码 传 到 客户 端 浏览 器 ， 
而 是 在 服务 器 上 执行 , 并 把 结果 发 送 到 客户 端的 浏览 器 上 。 发 布 该 文件 , 页 面 显 示 的 内 容 是 “这 
是 一 个 ASP 的 值 为 ”。ASP 代码 不 能 使 用 MsgBox 函数 , 输出 网 页 内 容 ， 需 要 使 用 Response 
对 象 的 Write 方法 。Response 对 象 的 Write 方法 将 在 第 4 章 介绍 。 


3.2 VBScript 数据 类 型 


VBScript 脚本 语言 具有 一 种 Variant 变量 类 型 。 下 面 介 绍 常量 和 变量 的 定义 、 变 量 的 命名 
规则 及 变量 的 作用 域 。 


3.2.1 Variant 变量 类 型 


与 Visual Basic 相 比 , VBScript 只 有 一 种 数据 类 型 .VBScript 语 言 拥 有 的 数据 类 型 是 Variant。 
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Variant 是 一 种 特殊 的 数据 类 型 ， 它 会 根据 使 用 方式 的 不 同 而 变化 ,这 些 变化 着 的 数据 称 为 “ 数 


据 子 类 型 ”， 


常见 的 有 字符 串 、 整 数 、 日 期 、 布 尔 值 、 函 数 返 回 值 的 各 种 类 型 。 因 为 Variant 


是 VBScript 中 唯一 的 数据 类 型 ， 所 以 它 也 是 VBScript 中 所 有 函数 的 返回 值 的 数据 类 型 。 











最 简单 的 Variant 可 以 包含 数字 或 字符 串 信 息 。Variant 用 于 数字 上 下 文中 时 作为 数字 处 理 ， 
用 于 字符 串 上 下 文中 时 作为 字符 串 处 理 。 也 就 是 说 ， 如 果 使 用 看 起 来 像 是 数字 的 数据 ， 则 
VBScript 会 假定 其 为 数字 并 以 适用 于 数字 的 方式 处 理 。 与 此 类 似 ， 如 果 使 用 的 数据 只 可 能 是 字 
符 串 ， 则 VBScript 将 按 字 符 串 处 理 。 也 可 以 将 数字 包含 在 引号 (" ") 中 使 其 成 为 字符 串 。 
VBScript 会 根据 代码 的 上 下 文 自 动 转换 数据 的 子 类 型 。 例 如 Tl=31， 这 里 的 Tl 将 被 作为 
-个 整数 来 对 待 ; 如 果 T1="31", 这 时 Tl 将 被 作为 一 个 字符 串 来 对 待 。 但 如 果 执 行 T2=T1+10， 
VBScript 将 T1 转换 为 整数 变量 ， 下 面 通过 实例 进行 说 明 (对 应 的 文件 为 3-02.htm)。 


代码 如 下 : 





<HTML><HEAD><TITLE>Variant 数据 类 型 </TITLE> 
<SCRIPT LANGUAGE="VBScript"> 


dim T1,T2 
T1="31" 
T2=T1+10 


document .write (T2) 
</SCRIPT></HEAD><BODY></BODY></HTML> 


程序 运行 的 结果 如 图 3-3 所 示 。 
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图 3-3 Variant 数据 类 型 


除 简单 数字 或 字符 串 以 外 ，Variant 可 以 进一步 区 分 数值 信息 的 特定 含义 。 例 如 ， 使 用 数值 
信息 表示 日 期 或 时 间 。Variant 包含 的 数值 信息 类 型 称 为 子 类 型 。 大 多 数 情况 下 ,可 将 所 需 的 数 
据 放 进 Variant 中 ， 而 Variant 也 会 按照 最 适用 于 其 包含 的 数据 的 方式 进行 操作 。Variant 包含 
的 数据 子 类 型 如 表 3-1 所 示 。 


表 3-1 Variant 包含 的 数据 子 类 型 











子 类 型 说 明 
Boolean | 布尔 类 型 ， 值 可 以 为 True 或 False 
Byte | 字 节 类 型 ， 值 为 0 至 255 之 间 的 整数 
Integer 整 型 ， 值 为 -32768 至 32767 之 间 整 数 





Long 


长 整 型 ， 值 为 -2147483648 至 2147483647 之 间 整 数 
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续 表 
子 类 型 说 明 
Double 双 精 度 浮 点 数 类 型 
String 字符 串 类 型 ， 字 符 串 最 大 长 度 为 20 亿 个 字符 
Date 日 期 类 型 ， 日 期 范围 为 公元 100 年 1 月 1 日 至 公元 9999 年 12 月 31 日 
Curency, 货币 类 型 
Null 空 数据 类 型 ， 也 就 是 不 包含 任何 有 效 数据 的 Variant 
Empty 没有 初始 化 的 Variant 变量 。 若 是 数值 型 变量 ， 值 为 0; 若是 字符 型 变量 ， 值 为 零 长 度 的 
字符 串 “” 
Object 对 象 类 型 ， 可 以 为 FSO 对 象 、Stream 对 象 等 
Error 包括 错误 号 
可 以 使 用 转换 函数 来 转换 数据 的 子 类 型 。 另 外 , 可 以 使 用 VarType 函数 返回 数据 的 Variant 
子 类 型 。 
3.2.2 常量 


在 程序 设计 中 , 经 常 使 用 一 些 固定 的 值 。 这 些 固定 的 值 常 被 符号 代替 ,这些 符号 就 是 常量 。 
常量 具有 固定 的 值 ， 在 程序 运行 过 程 中 ， 常 量 的 值 不 能 发 生 改变 。 如 果 在 脚本 中 使 用 这 些 固定 的 
值 ， 脚 本 程序 只 需要 引用 这 些 符号 就 可 以 了 。 在 VBScript 中 ， 使 用 Const 关键 字 定义 常量 。 其 语 
法 格式 如 下 : 

Const Name=Value 


其 中 ，Name 为 常量 的 名 称 。 命 名 时 ， 最 好 在 常量 名 称 前 加 上 con， 以 便 与 其 他 变量 进行 
区 分 。Value 为 常量 的 值 。 

下 面 的 代码 定义 了 几 个 常量 : 

Const MyName = " 王 齐 " 

Const MyClass = 6 

Const OlympicDate = #8-8-08# 

字符 串 文字 包含 在 两 个 引号 ("") 之 间 。 这 是 区 分 字符 串 型 常数 和 数值 型 常数 的 最 明显 的 方 
法 。 日 期 文字 和 时 间 文 字 包 含 在 两 个 # 符 号 之 间 。 可 以 一 行 定义 多 个 常量 ， 只 要 把 每 个 常量 定 
义 用 逗号 隔 开 即 可 。 

另外 ，VBScript 预先 定义 了 很 多 常用 的 常量 。VBScript 预先 定义 的 常量 ,通常 以 vb 开始 ， 
如 颜色 常量 vbRed 表示 红色 ， 另 外 还 有 比较 常见 的 Empty、Null、True、False 等 。 下 面 是 使 用 
系统 常量 的 例子 。 代 码 如 下 : 


<html> 

<head> 

<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> 
<title> 使 用 系统 预先 定义 的 常量 </title> 

</head> 

<body> 

<SCRIPT LANGUAGE="VBScript"> 


NNN 

















<!-— 
MsgBox "欢迎 使 用 "gvbcrLfg"ASP 大 全 学 习 ! " 


—> 


</SCRIPT> 
</body> 
</html> 


本 例 


一 个 回 车 


示 一 个 回 
的 结果 如 


32.3 











变量 
时 能 更 改 


使 用 了 常量 vbCrLf。 它 是 该 系统 预先 定义 的 一 个 常量 , 表示 
换行 符号 。 在 VBScript 中 ， 还 可 以 使 用 Chr(13)&Chr(10) 表 
车 换行 符号 。 程 序 中 符号 & 表 示 连 接 两 个 字符 串 。 程 序 运行 
图 3-4 所 示 。 


变量 


是 计算 机 内 存 中 已 命名 的 内 存 位 置 , 该 位 置 可 存储 脚本 运行 
的 信息 。 例 如 ， 可 以 创建 一 个 名 为 ClickCount 的 变量 来 存 
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VBScript X 


欢迎 使 用 
ASP 大 全 学 习 ! 


| 


3-4 ”使 用 预定 义 常量 








储 用 户 单 击 网 页 上 某 个 对 象 的 次 数 。 使 用 变量 并 不 需要 了 解 变 量 在 计算 机 内 存 中 的 地 址 , 重要 


的 在 于 可 


以 引用 变量 名 ， 可 以 查看 或 更 改变 量 的 值 。 


1. 声明 变量 

在 VBScript 脚本 中 ， 声 明 变 量 有 下 列 两 种 类 型 。 

1) 显 式 声明 变量 

在 VBScript 里 ， 使 用 Dim、Public、Private 来 声明 变量 。 例 如 : 


Dim 
也 可 


Dim 





a 
以 同时 声明 多 个 变量 ， 使 用 逗号 分 隔 变量 。 例 如 : 


atpy Crd 


2) 隐 式 声明 变量 
使 用 一 个 变量 之 前 也 可 以 不 专门 声明 它 ， 直 接 在 Script 中 使 用 变量 。 例 如 : 


r=4 


注意 : 隐 式 声明 变量 不 是 一 个 好 习惯 ， 因 为 这 样 有 时 会 由 于 变量 名 被 拼 错 而 导致 在 运行 脚本 时 
出 现 意外 的 结果 。 因 此 ， 最 好 使 用 Option Explicit 语句 显 式 声明 所 有 变量 ， 并 将 其 作为 
脚本 的 第 一 条 语句 。 当 Option Explicit 出 现在 文件 中 时 ,必须 使 用 Dim、Private、Public 
语句 显 式 声明 所 有 变量 。 如 果 使 用 未 声明 的 变量 名 将 发 生 编 译 时 错误 。 

2. 变量 命名 规则 
在 VBScript 中 ， 变 量 命名 必须 遵守 以 下 规则 。 


(D) 
(2) 
G) 
() 
G) 


变量 首 字符 必须 为 字母 。 

其 他 字符 可 以 为 数字 、 字 母 、 下 划 线 。 
保留 字 不 能 作为 变量 名 称 。 
变量 名 称 不 能 超过 255 个 字符 。 

在 被 声明 的 作用 域内 不 能 重 名 。 


M/E 
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像 下 面 这 几 个 变量 名 称 都 是 错误 的 。 
Len "len 为 求 字符 长 度 的 函数 名 字 ， 不 能 作为 变量 名 称 
2Num "数字 不 能 作为 变量 的 首 字符 


File.Name ，. 不 能 作为 变量 名 称 的 一 部 分 

File@Name “ “特殊 符号 6 不 能 作为 变量 名 称 一 部 分 

另外 ， 为 了 程序 易于 阅读 、 维 护 和 调试 ， 命 名 时 可 以 用 变量 的 首 字母 标识 类 型 。 例 如 ， 使 
用 int 标识 整 型 变量 ，str 标识 字符 型 变量 ，obj 标识 对 象 型 变量 。 


3. 变量 的 作用 域 与 存活 期 


变量 的 作用 域 由 声明 它 的 位 置 决定 。 如 果 在 过 程 中 声明 变量 ， 则 只 有 该 过 程 中 的 代码 可 以 
访问 或 更 改变 量 值 , 此 时 变量 具有 局 部 作用 域 并 被 称 为 过 程 级 变量 。 如 果 在 过 程 之 外 声明 变量 ， 
则 该 变量 可 以 被 脚本 中 所 有 过 程 所 识别 ， 称 为 脚本 级 变量 ， 具 有 脚本 级 作用 域 。 

变量 存在 的 时 间 称 为 存活 期 。 脚 本 级 变量 的 存活 期 从 被 声明 的 一 刻 起 , 直到 脚本 运行 结束 。 
对 于 过 程 级 变量 ， 其 存活 期 仅 是 该 过 程 运行 的 时 间 ， 该 过 程 结 束 后 ， 变 量 随 之 消失 。 在 执行 过 
程 时 ， 局 部 变量 是 理想 的 临时 存储 空间 。 可 以 在 不 同 过 程 中 使 用 同名 的 局 部 变量 ， 这 是 因为 每 
个 局 部 变量 只 被 声明 它 的 过 程 识别 。 

4. 变量 赋值 

给 变量 赋值 的 表达 式 为 : 变量 在 表达 式 左 边 ， 要 赋 的 值 在 表达 式 右边 。 例 如 :; 


b=40 
c=" 表 达 式 " 


举 一 个 简单 的 例子 说 明 变 量 赋值 的 情况 。 代 码 如 下 
<html> 

<head><title> 变 量 赋 值 </title></head> 

<body> 

<script language="VBScript"> 

dim a 

a=" 第 一 次 为 变量 赋值 的 过 程 叫 为 变量 赋 初 值 , 也 叫 初始 化 变量 " 
document .write (a) 

document .Write ("<br>") 

a=" 第 二 次 为 变量 赋值 ， 变 量 显示 新 赋值 的 内 容 " 
document .write (a) 

</script> 

</body> 

</html> 


程序 运行 的 结果 如 图 3-5 所 示 。 














| 襄 一 次 为 变量 钱 导 的 计 程 双 为 1 
| 本 一 交 为 安 量 虹 信 、 交 征用 3 





rm mas OE /ug tf 产 本 口 号 Ion 2 


3-5 ”变量 赋值 
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下 面 通过 实例 介绍 如 何 综合 运用 常量 和 变量 代码 如 下 : 


<HTML> 

<HEAD><TITLE> 求 圆 的 面积 </TITLE> 
<SCRIPT LANGUAGE="VBScript"> 
Const pi=3.141592 

dim r,s 

TE 

Ss=pi*r^2 

document .write(" 圆 的 半径 为 5 厘米 ") 
document .write ("<br>") 

document .write(" 圆 的 面积 为 "&s&" 平 方 厘米 ") 
</SCRIPT> 

</HEAD> 

<BODY></BODY> 

</HTML> 


在 求 圆 的 面积 这 个 程序 中 ， 圆 周 率 是 一 个 固定 的 数值 ， 使 用 常量 声明 并 应 用 于 程序 中 ; 半 
径 和 面积 均 随 取 值 不 同 而 发 生变 化 ， 采 用 变量 声明 的 方式 。 
程序 运行 的 结果 如 图 3-6 所 示 。 














GO plocalhost/ 7 13 © e814|v |s7en al 图 
忘 收 闸口 于 机 而 夫 器 扩展 - 口 风流 模式 瑟 翻译 - 可 共 图 ”> 
口 求 国 的 面积 < EE 


图 的 半径 为 5 厘米 
图 的 面积 为 78, 5398 平 方 原 米 





四 人 :SEN 问 热点 新 闻 个 医 生 双 加 逐 器 业 下 载 四 续 宫 听 Q 100% 





图 3-6 求 圆 的 面积 
3.2.4 数组 


在 多 数 情况 下 ， 只 需要 为 声明 的 变量 赋 一 个 值 。 只 包含 一 个 值 的 变量 被 称 为 标量 变量 。 如 
果 多 个 变量 具有 相同 的 意义 ， 则 可 以 把 这 些 变 量 合并 为 一 个 数组 变量 ,使 用 一 个 变量 名 来 标示 
这 些 变量 。 数 组 中 包含 多 个 元 素 ， 不 同 的 元 素 使 用 不 同 的 下 标 值 来 区 分 。 数 组 变量 与 普通 变量 
唯一 的 区 别 是 声明 数组 变量 时 变量 名 后 面 带 有 括号 ( )。 

下 面 的 示例 代码 声明 了 一 个 包含 11 个 元 素 的 一 维 数组 : 

Dim A(10) 


括号 中 显示 的 数字 是 10, 但 由 于 在 VBScript 中 所 有 数组 下 标 都 是 从 0 开始 的 ， 所 以 这 个 
数组 实际 上 包含 11 个 元 素 。 在 下 标 从 0 开始 的 数组 中 ， 数 组 元 素 的 数目 总 是 括号 中 显示 的 数 
目 加 1。 这 种 数组 被 称 为 固定 大 小 的 数组 。 

在 数组 中 可 以 使 用 索引 为 数组 的 每 个 元 素 赋值 。 对 于 一 维 数组 A(10), 它 的 下 标 从 0 到 10， 


数组 中 的 元 素 分 别 使 用 A(0)、A(1)、…、A(10) 表 示 。 
AR 
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下 面 通过 实例 介绍 一 维 数组 的 使 用 。 代 码 如 下 : 


<HTML> 
<HEAD><TITLE>VBScript 的 一 维 数 组 </TITLE> 
<SCRIPT LANGUAGE="VBScript"> 


dim A(10) 

A(O0)'= 234 
NU) 3254 
A(2) = 120 
A(LON S57 


document .write (A(0)) 
document .write ("<br>") 
document .write (A(5)) 
document .write ("<br>") 
document .write (A(10)) 
</SCRIPT> 

</HEAD> 

<BODY></BODY> 

</HTML> 


在 一 维 数组 这 个 程序 中 ， 利 用 数组 下 标 为 数组 中 的 4 个 元 素 赋值 ， 因 为 没有 为 元 素 A(5) 
赋值 ， 所 以 其 输出 为 空 。 
程序 运行 的 结果 如 图 3-7 所 示 。 





© el [~ [==>m3 2% [| 
韦 扩 展 - 口 网 避 保 式 | 趾 酮 译 ”吉本 国 - > 
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加 GEBWRWRE 回执 点 新 闻 页 医生 对 加 到 器 二 下 过 忆 和 器 听 100% 
图 3-7 一 维 数组 的 使 用 

数组 并 不 仅 限于 一 维 。 数组 的 维 数 最 大 可 以 为 60。 声明 多 维 数组 时 用 逗号 分 隔 括 号 中 每 个 
表示 数组 大 小 的 数字 。 在 下 面 的 示例 中 ，intArray 变量 是 一 个 2 行 3 列 的 二 维 数组 : 

Dim intArray (1,2) 

在 二 维 数组 中 ， 括 号 中 第 一 个 数字 表示 行 的 数目 ， 第 二 个 数字 表示 列 的 数目 。 上 面 这 个 数 
组 拥有 6 个 元 素 , 这 6 个 元 素 分 别 为 : intArray(0,0)、intArray(0,1)、intArray(0,2)、intArray(1,0)、 
intArray(1,1)、intArray(1.2)。 

除了 固定 长 度 的 静态 数组 之 外 ， 也 可 以 声明 动态 数组 ， 即 在 运行 时 大 小 发 生变 化 的 数组 。 
但 是 在 对 动态 数组 进行 声明 时 ， 括 号 中 不 包含 任何 数字 。 例 如 : 

Dim MyArray() 

要 使 用 动态 数组 , 必须 随后 使 用 ReDim 确定 维 数 和 每 一 维 的 大 小 。 在 下 面 的 示例 代码 中 ， 
ReDim 将 动态 数组 的 初始 大 小 设置 为 25, 而 后面 的 ReDim 语句 将 数组 的 大 小 重新 调整 为 30， 
同时 使 用 Preserve 关键 字 在 重新 调整 大 小 时 将 保留 数组 的 内 容 。 


“NNN 


ReDim 语句 的 格式 如 下 : 
ReDim MyArray (25) 


ReDim Preserve MyArray (30) 





重新 调整 动态 数组 大 小 的 次 数 是 没有 任何 限制 的 ， 但 是 应 注意 : 将 数组 的 大 小 调 小 时 ,将 


会 丢失 被 删除 元 素 的 数据 。 
该 示例 的 具体 代码 如 下 : 


<HTML> 
<HEAD><TITLE> 使 用 动态 数组 </TITLE> 
<SCRIPT LANGUAGE="VBScript"> 
dim A() 

ReDim A(25) 

A(0) = 234 

A(1) = 354 

ReDim Preserve A(30) 

A(30) = 50 

document .write (A(0)) 

document .write ("<br>") 
document .write (A(1)) 

document .write ("<br>") 
document .write (A(30)) 
</SCRIPT> 

</HEAD> 

<BODY></BODY> 

</HTML> 


程序 运行 的 结果 如 图 3-8 所 示 。 
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图 3-8 使 用 动态 数组 


3.3 运 算 符 


在 VBScript 中 ， 运 算 符 可 以 分 为 4 类 : 算术 运算 符 、 比 较 运 算 符 、 连 接 运算 符 和 逻辑 运 


算 符 。 运 算 符 操作 的 对 象 可 以 是 变量 、 常 量 或 函数 。 


IAA 
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3.3.1 算术 运算 符 


算术 运算 符 包 括 加 、 减 、 乘 、 除 、 求 余 (MOD) 等 。 算术 运算 符 的 操作 数 可 以 为 常量 、 变 


也 可 以 是 表达 式 ， 具 体 如 表 3-2 所 示 。 


量 ， 














的 。 








表 3-2 算术 运算 符 
运算 符 说 明 
和 4 计算 两 个 数 的 和 
一 计算 两 个 操作 数 的 差 (A-B) 或 者 对 操作 数 求 负 (-B) 
* 计算 两 个 操作 数 的 乘积 
/ 计算 两 个 数 的 商 ， 商 以 浮 点 数 表示 
计算 两 个 数 的 商 ， 商 以 整数 形式 表示 
^ 计算 操作 数 的 指数 次 方 ， 如 A=B^C 
MOD 求 两 个 数 相 除 的 余数 。 如 A=B MOD C 
下 面 通过 实例 介绍 算术 运算 符 的 使 用 方法 。 代 码 如 下 : 
<HTML> 


<HEAD><TITLE> 算 术 运 算 符 </TITLE> 

<SCRIPT LANGUAGE="VBScript"> 

Dim A,B 

Dim str 

A=20 

B=3 

str="A="&A&" B="&B&" A/B="&(A/B) & vbcrLf 
Str=str&"A="&A&" B="&B&" A\B="&(A\B) & vbCrLf 
str=str&"A="&A&" B="&Bé&" A^B="&(A^B) & vbCrLf 
str=str&"A="&A&" B="&B&" A MOD B="&(A MOD B) & vbCrLf 
MsgBox str 

</SCRIPT> 

</HEAD> 

<BODY></BODY> 

</HTML> 


程序 运行 的 结果 如 图 3-9 所 示 。 人 


通过 运行 结果 可 以 看 出 ， 运 算 符 “\” 和 “/” 的 结果 是 不 同 





运算 符 “/” 返回 的 结果 为 浮 点 数 ， 运 算 符 “\” 返回 的 结果 。 人 吕 和 CEseeeese 


3.3.2 ”比较 运算 符 


比较 运算 符 包括 小 于 、 大 于 、 等 于 、 不 等 于 等 操作 ， 具 体 图 3-9 算术 运算 的 结果 
如 表 3-3 所 示 。 


“NNN 


A=20 B=3 A^B=8000 
A=20 B=3 AMOD B=2 
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表 3-3 比较 运算 符 
说 明 





小 于 
小 于 或 等 于 
天 于 
大 于 或 等 于 
等 于 
不 等 于 

除了 is 运算 符 外 ， 比 较 运 算 符 的 两 个 操作 数 的 类 型 可 以 为 数值 型 或 者 字符 型 。 比 较 方 
法 如 下 。 

(1) 若 两 个 操作 数 的 类 型 为 数值 型 变量 ， 则 比较 运算 符 比 较 两 个 操作 数 的 数值 ， 如 果 比 较 
结果 正确 则 返回 True， 和 否则 返回 False。 

(2) 若 两 个 操作 数 的 类 型 为 字符 型 ， 则 比较 字符 的 ASCII 码 值 。 如 果 第 一 个 字符 相同 则 比 
较 第 二 个 ， 直 至 不 同 或 者 比较 完 所 有 字符 。 

下 面 通过 实例 介绍 比较 运算 符 的 使 用 方法 。 代 码 如 下 : 

<HTML> 

<HEAD><TITLE> 比 较 运算 符 </TITLE> 

<SCRIPT LANGUAGE="VBScript"> 

Dim str 

stro=nm" 

str=strg"asd>bsd 的 比较 结果 为 "& (asd>bsd)& vbCrLf 

str=strg"6>7 的 比较 结果 为 "& (6>7) 

MsgBox str 

</SCRIPT> 

</HEAD> 


<BODY></BODY> 
</HTML> 


程序 运行 的 结果 如 图 3-10 所 示 。 

















VBScript x 


asd>bsd 的 比较 结果 为 False 
6>7 的 比较 结果 为 False 


| we | 
图 3-10 ”比较 运算 的 结果 
3.3.3 ”连接 运算 符 


连接 运算 符 是 用 来 连接 两 个 字符 串 的 符号 ， 包 括 &、+ 等 。 下 面 的 代码 将 两 个 字符 串 连 接 


/eC 
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成 一 个 字符 串 并 输出 : 


<SCRIPT LANGUAGE="VBScript"> 

下 

Dim str 

X="asp" 

Y=" 大 全 " 

MsgBoX XE&Y 

MsgBoX X+Y 

</SCRIPT> 

运行 结果 均 为 “asp 大 全 ”。 在 这 段 代 码 中 ， 连 接 符 号 “+” 和 “&” 的 作用 是 一 样 的。 下 
面 的 代码 使 用 符号 “&” 和 “+” 连 接 字 符 ， 运 行 结果 就 不 一 样 了 。 代 码 如 下 : 

<SCRIPT LANGUAGE="VBScript"> 

Dim intX, intY 

intX=12 

intY="23" 

Dim str 

str="intX&intY 运行 结果 为 : "& (intX&intY) &vbCrLf 

str=strg"intX+intY 运行 结果 为 : "& (intX+intY) &vbCrLf 

MsgBox str 

</SCRIPT> 


运行 该 段 代码 ， 结 果 如 图 3-11 所 示 。 
通过 图 3-11 可 以 看 出 ，intX&intY 的 值 为 1223， 而 intX+intY 

的 结果 却 是 35。 连 接 符 & 把 两 个 字符 串 连接 成 了 一 个 1223， 而 连 。 mony ss:1223 

接 符号 + 在 执行 时 把 字符 “23” 转 换 成 了 数字 23， 然 后 进行 了 加 法 

运算 。 = 二 


3.3.4 ”逻辑 运算 符 图 3-11 连接 运算 的 结果 


Vescript x 


逻辑 运算 符 包括 : 与 (And)、 非 (Not)、 或 (OD) 和 异 或 (Xor) 运 算 。 

与 运算 (And) 的 语法 格式 如 下 : 

Result=A And B 

与 运算 的 结果 Result 由 操作 数 A 和 B 决定 ， 返 回 值 可 以 根据 表 3-4 确定 。 
表 3-4 与 运算 的 结果 


操作 数 A 操作 数 B 结果 Result 值 














Trmue True 

True False 

False False 

False False 
非 运算 (Nob 的 语法 格式 如 下 : 


NN 
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Result=Not B 





非 运算 的 结果 Result 由 操作 数 B 决定 ， 返 回 值 可 以 根据 表 3-5 确定 。 





表 3-5 ” 非 运算 的 结果 








操作 数 B 结果 Result 值 
True False 
False Trmue 





或 运算 (Or) 的 语法 格式 如 下 : 


Result=A Or B 
或 运算 的 结果 Result 由 操作 数 A 和 B 决定 ， 返 回 值 可 以 根据 表 3-6 确定 。 
表 3-6 或 运算 的 结果 








操作 数 A 操作 数 B 结果 Result 值 
True True True 
True True 
False False 
False Trme 





异 或 运算 (Xor) 的 语法 格式 如 下 : 

Result=A Xor B 

异 或 运算 的 结果 Result 由 操作 数 A 和 B 决定 ， 返 回 值 可 以 根据 表 3-7 确定 。 
表 3-7 ” 异 或 运算 的 结果 


结果 Result 值 











下 面 通过 实例 介绍 逻辑 运算 符 的 使 用 方法 。 代 码 如 下 : 


<HTML> 

<HERAD><TITLE> 罗 辑 运 算 符 </TITLE> 

<SCRIPT LANGUAGE="VBScript"> 

Dim str 

' 在 and 运算 中 ， 只 要 有 一 个 操作 数 为 假 ， 则 整个 运算 即 为 假 。 下 面 结果 为 False 

str="15>4 and 'as'" >'qw' 的 值 为 : "&(15>4 and "as">"qw") & vbCrLf 

' 在 or 运算 中 ， 只 要 有 一 个 操作 数 为 真 ， 则 整个 运算 即 为 真 。 下 面 结果 为 True 

StT=Str&n"15>4 or 'as'>'qw' 的 值 为 : "&(15>4 or "as">"qw") & vbCrLf 

"在 xor 运算 中 , 只 要 有 两 个 操作 数 的 值 相同 , 则 整个 运算 就 为 False, 否则 为 True。 下 面 结果 为 True 
str=str&g"15>4 xor 'as'>"'qw' 的 值 为 : "& (15>4 xor "as">"qw") & vbCrLf 


M/E 
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str=strg"not (15>4) or "as'>'"qw" 的 值 为 : "&(not (15>4) or "as">"qw") & vbCrLf 


MsgBox str 
</SCRIPT> 
</HEAD> 
<BODY></BODY> 
</HTML> 


程序 运行 的 结果 如 图 3-12 所 示 。 


VBScript x 


15>4 and 'as' >'qw' 的 值 为 : False 
15>4 or 'as'>'qw' 的 值 为 : True 
15>4 xor 'as'>'qw 的 值 为 : True 
not(15>4) or 'as'>'qw 的 值 为 : False 


Cw |] 
图 3-12 ”逻辑 运算 的 结果 
3.3.5 运算 符 的 优先 级 





当 一 个 表达 式 中 包含 多 个 运算 符 时 ， 将 会 按照 一 定 顺序 计算 每 一 部 分 的 值 。 这 个 顺序 就 是 


运算 符 的 优先 级 ， 如 表 3-8 所 示 。 
表 3-8 运算 符 的 优先 级 











运算 符 类 型 运算 符 

一 ( 负 号 ) 
ey 

算术 运算 符 
MOD 
+、-( 减 号 ) 

比较 运算 符 SN EV 
韭 
与 

逻辑 运算 符 

或 

异 或 





另外 ， 括 号 可 以 改变 运算 符 的 优先 级 。 如 果 表 达 式 中 有 括号 ， 先 运算 括号 内 的 表达 式 ， 括 
号 内 的 运算 符 计算 顺序 ， 仍然 要 遵循 运算 符 的 优先 级 。 对 于 在 表达 式 中 出 现 的 同一 级 别 的 运算 


符 ， 按 照 从 左 到 右 的 顺序 运算 。 
例如 ， 下 面 这 段 示例 代码 : 


<SCRIPT LANGUAGE="VBScript"> 
Dim str 
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str="15>4 and not 'as'>"'qw' 的 值 为 : WE 
(15>4 and not "as">"qw") & vbCrLf 
MsgBox str 
</SCRIPT> 
运行 该 段 代码 ， 结 果 为 True。 因 为 逻辑 运算 符 and 的 优先 级 低 于 not， 因 此 先 计算 表达 式 
not "as">"qw" 的 值 ， 该 部 分 的 值 为 True; 表达 式 15>4 的 值 为 Tme， 因 此 该 表达 式 为 True。 


3.4 条 件 语句 


一 般 情况 下 ,程序 语句 的 执行 是 按照 其 书写 顺序 来 执行 的 。 前 面 的 代码 先 执 行 ， 后面 的 代 
码 后 执行 。 但 是 这 种 简单 的 自 上 而 下 的 单 向 流程 只 适 于 用 一 些 很 简单 的 程序 。 大 多 数 情 况 下 ， 
需要 根据 逻辑 判断 来 决定 程序 代码 执行 的 优先 顺序 。 要 改变 程序 代码 执行 的 顺序 ， 这 就 需要 用 
到 条 件 语句 。 条 件 语 句 是 脚本 在 执行 过 程 中 ， 依 据 条 件 的 结果 改变 脚本 执行 流程 的 语句 。 
VBScript 支持 以 下 条 件 语 句 。 

(1) 简单 分 支 If...Then。 

(2) 选择 分 支 If...Then...Else。 

(3) 多 重 选 择 Select Case。 


3.4.1 “If...Then 语句 


If...Then 是 最 常用 的 一 种 分 支 语句 ， 该 语句 用 于 计算 条 件 是 否 为 True 或 False， 并且 根 
据 计 算 结果 决定 语句 是 否 执行 。 通 常 ， 条 件 是 使 用 比较 运算 符 对 值 或 变量 进行 比较 的 表达 式 。 
其 语句 组 要 执行 的 语句 可 以 包含 一 条 ， 也 可 以 包含 多 条 。 

语法 格式 如 下 : 

IE 条 件 表达 式 Then ”动作 语句 


当 条 件 表达 式 的 结果 为 True 时 ， 则 执行 动作 语句 ， 否 则 ， 不 执行 动作 语句 。 这 种 语句 结 
构 只 能 包含 一 条 可 执行 语句 ， 没 有 End If。 

下 面 的 代码 输出 大 于 60 的 成 绩 : 

<SCRIPT LANGUAGE="VBScript"> 

Dim score 

' 弹 出 输入 数据 的 对 话 框 ， 以 便 用 户 输入 信息 。 用 户 输 入 的 信息 保存 在 变量 score 中 

score=InputBox ("请 输入 考试 成 绩 ", "输入 成 绩 ") 

If score>=60 Then MsgBox "成 绩 合 格 : "& score 

</SCRIPT> 

在 上 述 代码 中 ， 函 数 InputBox() 用 来 显示 提示 对 话 框 ， 等 待 用 户 输入 文本 或 单 击 按钮 ， 并 
返回 输入 内 容 。 如 果 输 入 的 成 绩 大 于 60， 那 么 单 击 “ 确 定 ” 按 钮 后 ， 将 显示 成 绩 是 否 合格 的 提 
示 框 。 

这 种 条 件 分 支 结 构 的 动作 语句 只 能 有 一 条 ， 如 果 需 要 执行 多 条 动作 语句 ， 就 要 使 用 下 面 的 


结构 形式 。 这 种 语句 结构 必须 有 End If。 其 语法 格式 如 下 
IANA 
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If 条 件 表达 式 Then 
动作 语句 
End If 


下 面 的 代码 通过 嵌 套 下 语句 对 成 绩 进 行 分 类 并 输出 成 绩 级 别 : 


<SCRIPT LANGUAGE="VBScript"> 
Dim score 
"弹出 输入 数据 的 对 话 框 ， 以 便 用 户 输入 信息 。 用 户 输入 的 信息 保存 在 变量 score 中 
score= InputBox (" 请 输入 考试 成 绩 ", "输入 成 绩 ") 
' 如 果 成 绩 小 于 60 则 输出 EE 
If score<60 Then MsgBox "成 绩 合格 : E" 
' 输 出 成 绩 大 于 等 于 60 的 等 级 
If score>=60 Then 
' 输 出 成 绩 大 于 等 于 70 的 等 级 
Tf score >=70 Then 
' 输 出 成 绩 大 于 等 于 80 的 等 级 
If score >=80 Then 
' 输 出 成 绩 大 于 等 于 90 的 等 级 
TE SICOre >=90 Then 
MsgBox "成 绩 合 格 : A" 
End If 
' 输 出 成 绩 在 80 至 90 之 间 的 等 级 
If score<90 Then MsgBox "成 绩 合 格 : B" 
End If 
' 输 出 成 绩 在 70 至 80 之 间 的 等 级 
If score<80 Then MsgBox "成 绩 合 格 : C" 
End If 
' 输 出 成 绩 在 60 至 70 之 间 的 等 级 
If score<70 Then MsgBox "成 绩 合格 : D" 
End If 
</SCRIPT> 


运行 该 段 代码 ， 输 入 成 绩 ， 单 击 “确定 ”按钮 ， 将 显示 该 成 绩 的 档次 。 
3.4.2 上 f...Then...Else 语句 


该 语句 的 语法 格式 如 下 : 
IE 条 件 表 达 式 Then 
动作 语句 1 
Else 
动作 语句 2 
End If 
还 ..Then...Else 语句 可 以 完成 双重 条 件 的 判断 , 当 条 件 表达 式 为 True 时 , 执行 动作 语句 1; 
否则 执行 2。 
下 面 的 实例 使 用 下 .Then...Else 语句 ,实现 3.4.1 节 中 的 成 绩 分 类 并 输出 成 绩 类 别 的 功能 。 
代码 如 下 : 


<SCRIPT LANGUAGE="VBScript"> 


NN 
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Dim score 
score= InputBox (" 请 输入 考试 成 绩 ", "输入 成 绩 ") 
If Score>=60 Then 
IE score >=70 Then 
IE Score >=80 Then 
IE Score >=90 Then 
"输出 大 于 90 的 成 绩 等 级 
MsgBox "成 绩 合格 : A" 
Else 
"输出 小 于 90 而 大 于 80 的 成 绩 等 级 
MsgBox "成 绩 合 格 : B" 
End If 
Else 
"输出 小 于 80 而 大 于 70 的 成 绩 等 级 
MsgBox "成 绩 合 格 : C" 
End If 
Else 
"输出 小 于 70 而 大 于 60 的 成 绩 等 级 
MsgBox "成 绩 合格 : D" 
End If 
Else 
MsgBox "成 绩 合格 : E" 
End If 
</SCRIPT> 


使 用 下 .Then...Else 语句 虽然 实现 了 这 个 功能 ， 但 是 嵌 套 还 是 比较 多 。VBScript 还 提供 了 


多 重 条 件 判断 语句 结构 。 其 语法 格式 如 下 : 


If 条 件 表达 式 1 Then 
动作 语句 1 

ElseIf 条 件 表达 式 2 
动作 语句 2 


Else 
动作 语句 n 
End If 


多 重 条 件 语句 在 条 件 表达 式 值 为 True 时 ， 执 行 该 表达 式 对 应 的 动作 语句 ， 然 后 继续 执行 
End 下 之 后 的 语句 。 如 果 没 有 条 件 表达 式 的 值 为 True， 并 且 存 在 Else 分 支 ， 就 执行 Else 后 的 
动作 语句 。 如 果 没 有 Else 分 支 语句 ， 则 执行 End 正之 后 的 语句 。3.4.1 节 讲述 了 成 绩 分 类 并 输 


出 成 绩 级 别 的 例子 ， 该 例子 使 用 多 重 条 件 语句 也 可 以 实现 。 具 体 代码 如 下 : 


<SCRIPT LANGUAGE="VBScript"> 

Dim score 

score= InputBox ("请 输入 考试 成 绩 ", "输入 成 绩 ") 

If score>=60 and score<70 Then 
MsgBox "成 绩 合格 : D" 

ElselIf Score >=70 and Score<80 Then 
MsgBox "成 绩 合格 : C" 

ElselIf score >=80 and score<90 Then 
MsgBox "成 绩 合格 : B" 


AAA 
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ElseIf Score >=90 Then 
MsgBox "成 绩 合 格 : A" 
Else 
MsgBox "成 绩 合 格 : E" 
End If 
</SCRIPT> 


3.4.3 Select Case 语句 


Select Case 语句 适用 于 选择 条 件 比 较 多 的 多 重 选择 。 与 下 .Then...Else 语句 相 比 ，Select 
Case 结构 层次 更 清晰 直观 。 语 法 格式 如 下 : 


Select Case 表达 式 
Case 测试 值 1 

动作 语句 1 
[case 测试 值 2 

动作 语句 1] 


Pe 测试 值 n 
动作 语句 n] 
[Case Else 
动作 语句 ] 
End Select 
执行 Select Case 语句 时 ， 先 计算 表达 式 的 值 ， 然 后 将 每 个 测试 的 值 进行 匹配 。 如 果 匹 配 成 
功 ， 则 执行 该 Case 后 面 的 动作 语句 ， 执 行 该 语句 后 ， 再 执行 End Select 后 面 的 代码 。 如 果 有 多 
项 测试 值 匹 配 成 功 , 则 执行 第 一 个 匹配 成 功 测试 值 后 的 动作 语句 ; 如 果 没 有 与 测试 值 匹 配 成 功 ， 
并 且 存 在 Case Else 语句 块 ， 则 执行 Case Else 后 面 的 动作 语句 。 
Select Case 语句 和 下 语句 一 样 都 允许 嵌 套 ,但 是 每 一 个 Select Case 语句 都 必须 有 End Select 
与 之 对 应 。 
下 面 使 用 Select Case 语句 判断 成 绩 等 级 。 代 码 如 下 : 
<HTML><HERAD><TITLE> 判 断 成 绩 等 级 </TITLE> 


<SCRIPT LANGUAGE="VBScript"> 
dim numl 
numl = CInt (InputBox ("请 输入 考试 分 数 ") /10) 
Select Case numl 
Case 10,9 
document .write ("成 绩 等 级 为 优 ") 
Case 8 
document .write ("成 绩 等 级 为 良 ") 
Case 7 
document .write ("成 绩 等 级 为 中 ") 
Case 6 
document .write ("成 绩 等 级 为 差 ") 
Case SrArdr2ria0 
document .write ("成 绩 等 级 为 不 合格 ") 
Case else 
document .write ("输入 有 错 ") 
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End Select 
</SCRIPT> 
</HEAD><BODY></BODY></HTML> 
代码 中 的 CInt0 为 转换 函数 ， 功 能 是 将 变量 转换 为 整数 类 型 。 程 序 运行 的 结果 如 图 3-13 
所 示 。 
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图 3-13 判断 成 绩 等 级 
3.5 循环 语句 


循环 语句 是 用 来 重复 执行 一 段 代码 的 语句 。VBScript 常用 的 循环 语句 包括 : Do...Loop、 
While...Wend、For...Next 和 For Each...Next。For...Next 语句 常用 于 按照 指定 的 循环 次 数 进行 
操作 的 循环 ; For Each...Next 语句 常用 于 对 数组 或 集合 中 的 每 个 元 素 进 行 操作 的 循环 ; 
Do...Loop 和 While...Wend 语句 常用 于 按照 指定 条 件 进行 操作 的 循环 。 


3.5.1 ”For…Next 语句 


For...Next 语句 常用 于 按照 指定 循环 次 数 进行 操作 的 循环 。 该 语句 的 语法 格式 如 下 : 
For Count=Start To End [Step Dj] 
动作 语句 
Next 
语法 说 明 如 下 。 
(1) Count 是 循环 计数 变量 ， 变 量 名 可 以 任意 指定 。 
(2) Start 为 计数 变量 的 初 值 ，End 为 计数 变量 的 终 值 。 
(3) n 为 步 长 , 可 以 为 正 数 也 可 以 为 负数 。 每 执行 一 次 循环 , 计数 变量 加 上 nm 值 。 若 无 Step 
子 句 ， 系 统 默认 递增 1。 
For...Next 语句 的 执行 流程 如 图 3-14 所 示 。 
下 面 是 使 用 For...Next 语句 求 1 一 100 所 有 数 之 和 的 例子 。 代 码 如 下 : 
<SCRIPT LANGUAGE="VBScript"> 
i=1 
m=0 
' 从 1 到 100 进行 循环 ， 共 循环 100 次 
For i=1 to 100 
m=m+I "循环 体内 的 操作 语句 


next 
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MsgBox mg& VvbCrLf gi 
</SCRIPT> 
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3-14 ”For...Next 的 执行 流程 


如 果 在 循环 的 过 程 中 需要 终止 循环 ， 可 以 使 用 Exit For 语句 。 下 面 是 终止 循环 的 例子 ， 超 
过 1000 后 终止 循环 。 代 码 如 下 : 


<SCRIPT LANGUAGE="VBScript"> 

i=1 

m=0 

For i=1 to 100 
m=m+i 
' 判 断 和 是 否 超过 1000， 超 过 1000 将 终止 循环 
If m>1000 Then Exit For 

next 

MsgBox mg& vbCrLf &i 

</SCRIPT> 


3.5.2 ”For Each...Next 语句 


For Each...Next 语句 常用 于 对 数组 元 素 进 行 操作 的 循环 。 其 语法 格式 如 下 : 
For Each element In Array 
动作 语句 
Next 
语法 说 明 如 下 。 
(1) Amay 表示 集合 或 数组 的 名 称 。 
(2) _ element 用 来 枚 举 Array 中 所 有 元 素 的 变量 。 对 于 数组 ，element 只 能 是 Variant 变量 。 
下 面 的 例子 是 显示 数组 所 有 元 素 的 值 。 代 码 如 下 : 
<SCRIPT LANGUAGE="VBScript"> 
Dim Score(4) 


Score(0)=60 
Score (1)=70 
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Score (2)=80 

Score (3)=75 

Score (4)=63 

Dim str 

str="" 

"使 用 For each 语句 循环 输出 数组 的 元 素 

"数组 中 的 元 素 存放 在 变量 Stu_Score 中 

For each Stu Score in score 
Str=str&g Stu Scoreg& vbCrLf 

Next 

MsgBox str 

</SCRIPT> 


在 这 个 例子 中 ，For Each 语句 对 数组 中 的 所 有 元 素 执行 连接 操作 。 
3.5.3 ”While...Wend 语句 


While...Wend 语句 常用 于 按照 指定 条 件 的 循环 。 其 语法 格式 如 下 : 
While 条 件 表达 式 
动作 语句 
Wend 
在 执行 循环 时 , 如 果 条 件 表达 式 的 值 为 True, 就 执行 动作 语句 , 然后 再 次 执行 While 语句 ; 
如 果 条 件 为 False， 则 终止 循环 ， 执 行 Wend 后 的 脚本 语句 。 
下 面 是 使 用 While 循环 求 出 1 一 100 所 有 数 之 和 的 例子 。 代 码 如 下 : 
<SCRIPT LANGUAGE="VBScript"> 
i=1 
m=0 
"while 循环 的 条 件 是 i 小 于 等 于 100。 当 并 值 大 于 100 时 结束 循环 
while i<=100 
m=m+i 
i=i+1 
wend 
MsgBox m 
</SCRIPT> 


3.5.4 Do...Loop 语句 


Do...Loop 语句 可 以 与 While 或 者 Until 结合 ， 根 据 条 件 值 实现 循环 。 
Do While...Loop 语句 的 语法 格式 如 下 : 
Do While 条 件 表达 式 
动作 语句 
Loop 
在 条 件 表达 式 的 值 为 True 时 ，Do While 语句 重复 执行 动作 语句 。 
下 面 是 使 用 Do While 循环 求 出 1 一 100 所 有 数 之 和 的 例子 。 如 果 和 超过 1000 则 结束 循环 。 


代码 如 下 
/eC 
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<SCRIPT LANGUAGE="VBScript"> 
i=1 
m=0 
Do while i<=100 
m=m+i 
"判断 mm 是 否 大 于 1000 则 终止 while 循环 
If m>1000 Then Exit Do 
i=i+1 
loop 
MsgBox mg vbCrLf &i 
</SCRIPT> 


上 面 的 形式 是 先 检测 Do While 的 条 件 表达 式 是 否 成 立 ， 然 后 才 执行 动作 语句 。 也 可 以 写 


成 以 下 这 种 形式 : 


Do 
动作 语句 
Loop While 条 件 表 达 式 


在 执行 这 种 形式 的 循环 时 ， 先 执行 一 次 动作 语句 ， 再 执行 条 件 表 达 式 ， 依 据 条 件 表达 式 的 


值 确 定 是 否 再 次 循环 。 修 改 代码 如 下 : 


<SCRIPT LANGUAGE="VBScript"> 
i=1 
m=0 
Do 
m=m+i 
If m>1000 Then Exit Do 
i=i+l 
loop while i<=100 
MsgBox mg vbCrLf &i 
</SCRIPT> 


Do Until...Loop 语句 的 语法 格式 如 下 : 


Do Until 条 件 表达 式 
动作 语句 
Loop 


在 条 件 表达 式 的 值 为 False 时 ，Do Until 语句 重复 执行 动作 语句 。Do Until 和 Do While 语 


句 的 不 同 之 处 在 于 : 在 执行 Do Until 时 ， 条 件 表达 式 为 False 时 才能 执行 动作 语句 ， 而 在 执行 
Do While 时 ， 表 达 式 为 True 时 才能 执行 动作 语句 。 


使 用 Do Until 循环 实现 求 出 1 一 100 的 数 之 和 的 例子 。 代 码 如 下 : 


<SCRIPT LANGUAGE="VBScript"> 
i=1 


m=0 
' 只 有 羡 值 小 于 等 于 100 时 ， 才 可 以 循环 
Do until i>100 

m=m+i 

i=i+1 
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loop 
MsgBox m 
</SCRIPT> 
执行 循环 的 时 候 , 先 测 试 i 值 是 否 大 于 100, 如 果 为 False 则 执行 加 操作 , 再 次 执行 Do Until; 
如 果 为 True， 则 执行 Loop 后 的 语句 。 上 述 代 码 也 可 以 像 Do While 语句 那样 写成 下 面 的 形式 : 
<SCRIPT LANGUAGE="VBScript"> 
i=1 
m=0 
"下 面 使 用 循环 输出 100 个 数值 
Do 
m=m+i 
i=i+l 
loop until i>100 
MsgBox m "弹出 信息 
</SCRIPT> 


3.6 ”过 程 和 函数 


在 VBScript 中 ， 可 调用 的 程序 段 被 分 为 两 类 : Sub 过 程 和 Function 函数 。 过 程 是 指 能 实现 
某 种 特定 功能 的 程序 代码 段 ， 执 行 结束 后 不 返回 任何 值 ; 函数 也 是 实现 某 种 特定 功能 的 程序 代 
码 段 ， 但 是 在 执行 结束 前 返回 一 个 值 。 


3.6.1 过 程 的 定义 和 调用 


Sub 过 程 是 包含 在 Sub 和 End Sub 语句 之 间 的 一 组 VBScript 语句 ， 又 叫 Sub 子 程序 。 执 行 
操作 但 不 返回 值 , Sub 过 程 可 以 使 用 参数 (由 调用 过 程 传递 的 常数 、 变 量 或 表达 式 ), 如 果 Sub 过 
程 无 任何 参数 ，Sub 语句 也 必须 包含 空 括号 (0)。 

其 语法 格式 如 下 : 

Sub 过 程 名 (参数 1, 参数 2, .…) 

语句 组 

End Sub 

定义 了 一 个 Sub 过 程 后 ， 就 可 以 在 程序 代码 中 调用 它 。Sub 过 程 的 调用 有 两 种 方式 。 一 种 
是 使 用 Call 语句 ， 它 要 求 将 所 有 参数 包含 在 括号 之 中 ， 语 法 格式 如 下 : 

Call Sub 过 程 名 (参数 1, 参数 2,.…) 

在 使 用 的 时 候 ，Call 关键 字 可 以 省 略 。 

另 一 种 是 直接 使 用 子 过 程 名 ， 只 需要 输入 过 程 名 及 其 所 有 参数 值 ， 参 数值 之 间 使 用 括号 分 
隔 ， 语 法 格式 如 下 : 

Sub 过 程 名 参数 1 ,参数 2,.… 


可 以 使 用 Exit Sub 语句 从 Sub 过 程 中 退出 ， 程 序 继续 执行 调用 Sub 过 程 语句 之 后 的 语句 。 


M/E 
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下 面 通过 实例 介绍 如 何 使 用 Sub 过 程 。 代 码 如 下 : 


<HTML><HEAD> 

<TITLE> 使 用 Sub 过 程 </TITLE> 
<SCRIPT LANGUAGE="VBScript"> 
Sub myMulti (nol, no2) 
document .write (nolg"*"gno2&"="g&nol*no2&"<BR>") 
End Sub 

</SCRIPT></HEAD> 

<BODY> 

<SCRIPT LANGUAGE="VBScript"> 
Call myMulti (6,7) 

myMulti 8,9 


</SCRIPT> 

</BODY> 

</HTML> 

该 实例 中 使 用 带 参数 Sub 过 程 求 两 个 整数 的 乘积 。 调 用 时 采用 了 两 种 调用 方式 : Call 
myMulti(6,7) 使 用 Call 语句 ;myMulti 8.9 是 直接 使 用 子 过 程 名 。 该 程序 运行 的 结果 如 图 3-15 
所 示 。 
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图 3-15 使 用 Sub 过 程 
3.6.2 ”函数 的 定义 和 调用 


过 程 可 以 实现 代码 的 重用 性 ， 提 高 代码 的 可 读 性 。 如 果 需 要 过 程 的 执行 结果 ， 将 很 难 或 者 
实现 起 来 非常 麻烦 。 这 时 可 以 使 用 函数 代替 过 程 ， 因 为 函数 可 以 返回 值 。 

Function 函数 是 包含 在 Function 和 End Function 语句 之 间 的 一 组 VBScript 语句 。 其 语 
法 格式 如 下 : 

Function 函数 名 (参数 1, 参数 2,.…) 

语句 组 

函数 名 = 表达 式 

End Function 

Function 函数 可 以 使 用 输入 参数 。 如 果 Function 过 程 无 任何 参数 ， 则 Function 语句 必须 
包含 空 括号 0。 其 调用 方法 和 过 程 的 调用 方法 一 样 。 
Function 函数 可 以 通过 函数 名 返回 一 个 值 , 这 个 值 需要 在 函数 体内 对 函数 名 赋值 .Function 
值 的 数据 类 型 总 是 Variant。 


NN 
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下 面 通过 实例 介绍 如 何 自 定义 求 和 函数 。 代 码 如 下 : 


<HTML> 
<HEAD><TITLE> 自 定义 求 和 函数 </TITLE> 
<SCRIPT LANGUAGE="VBScript"> 
' 定 义 一 个 求 和 函数 
Function add(n) 

total=0 

For counter=1 TO n 

total=total+counter 

Next 

add=total "给 函数 名 赋值 
End Function 

Dim n 

n=20 

t=add (20) 

document .write ("1 加 到 "gng" 的 总 和 为 "gt) 
</SCRIPT> 
</HEAD><BODY></BODY></HTML> 


程序 运行 的 结果 如 图 3-16 所 示 。 
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图 3-16“ 自 定义 求 和 函数 的 运行 结果 
3.6.3 ”变量 的 作用 域 


在 VBScript 脚本 中 ， 变 量 被 声明 后 不 是 在 脚本 的 任何 地 方 都 可 以 被 访问 的 ， 每 个 变量 都 
有 其 使 用 范围 ， 也 就 是 变量 的 作用 域 。 

变量 的 作用 域 是 指 变量 从 声明 到 释放 的 生存 范围 ， 其 作用 域 由 声明 它 的 位 置 决定 。 如 果 变 
量 在 过 程 中 声明 ， 则 只 有 该 过 程 的 代码 可 以 访问 该 变量 ， 在 过 程 外 部 将 无 法 访问 ， 这 种 变量 被 
称 为 过 程 级 变量 ;在 过 程 外 部 声明 变量 ， 可 以 被 同一 个 ASP 文件 中 的 所 有 代码 访问 ， 这 种 变 
量 被 称 为 脚本 级 变量 。 

下 面 的 例子 是 通过 一 个 过 程 修改 脚本 级 变量 的 值 。 代 码 如 下 

<SCRIPT LANGUAGE="VBScript"> 

Option Explicit 


Dim intX 

intXx=1 

SetintX "调用 过 程 

MsgBox "intx 的 值 为 : "&intX 

Sub SetintX "定义 过 程 SetintX 
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intX=2 
End Sub 
</SCRIPT> 


运行 该 段 代码 ， 从 结果 来 看 ， 该 段 代码 输出 为 2。intX 是 脚本 级 变量 的 作用 域 作为 整个 文 
件 。 在 过 程 SetintX 中 ， 修 改 了 该 变量 的 值 ， 在 过 程 外 访问 该 变量 也 就 是 修改 后 的 值 2。 

修改 成 如 下 代码 : 

<SCRIPT LANGUAGE="VBScript"> 

Dim intx 

intX=1 

SetintX 

MsgBox "intX 的 值 为 : "&intX 

Sub Setintx 

Dim intX 

ntX=2 

End Sub 

</SCRIPT> 


运行 该 段 代 码 , 从 结果 来 看 , 输出 为 1。 过程 SetintX 定义 了 一 个 和 脚本 级 相同 的 变量 intX， 
两 个 变量 的 作用 域 重合 。 脚本 级 变量 intX 的 作用 域 在 此 失效 ， 过 程 SetintX 访问 的 intX 是 过 程 
级 变量 intX, 修改 的 intX 的 值 也 是 过 程 级 变量 intX 的 值 ,过 程 并 没有 修改 脚本 级 变量 的 值 intX。 
因此 ， 在 过 程 外 输出 intX 的 值 仍 为 1。 


3.6.4 ”常用 内 置 函 数 


除了 自 定义 函数 以 外 ， 系 统 还 提供 了 许多 重要 的 函数 ， 这 些 函数 可 以 在 程序 中 直接 使 用 。 
可 以 将 VBScript 函数 分 成 5 个 类 别 : 字符 串 处 理 函 数 ， 转 换 函 数 ， 日 期 和 时 间 函 数 ， 数 学 函 
1. 字符 串 处 理 函 数 
字符 串 处 理 函 数 是 编写 程序 时 使 用 最 多 的 函数 。 通 常用 户 输入 的 时 候 ， 都 是 作为 字符 串 输 
入 的 ， 需 要 对 这 些 输入 进行 适当 的 处 理 。 常 用 的 字符 串 处 理 函 数 如 表 3-9 所 示 。 
表 3-9 常用 的 字符 串 处 理 函 数 




















函 _ 数 功 能 用 法 举例 
Len(strin 返回 字符 串 string 的 长 度 Len("study ") 返 回 5 
Trim(string) 去 掉 字符 串 string 左右 的 空格 Trim(" study ") 返 回 "study" 
Mid(str, start , len) | 返回 特定 长 度 的 字符 串 (从 start 开始 ,长 度 为 | Mid("My apple is red. ", 4 , 5) 返 回 
len) "apple " 
Left(str, len) 从 左边 取 len 个 字符 Left("study ",3) 返 回 "stu" 
Right(str, len 从 右边 取 len 个 字符 Right ("study ".3) 返 回 "udy" 
Instr(str1, str2) 返回 str2 在 strl 中 首次 出 现 的 位 置 ， 两 字符 | Instr("study ", "udy ") 返 回 3 
串 相 同 返 回 0 
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2. 转换 函数 
VBScript 提供 了 一 些 强制 转换 函数 实现 类 型 的 转换 。 常 用 的 转换 函数 如 表 3-10 所 示 。 
表 3-10 常用 的 转换 函数 




















函 _ 数 功 能 用 法 举例 

CStr (Variant 将 变量 转换 成 字符 型 CStr (789) 返 回 "789" 
CDate (Variant) 将 变量 转换 成 日 期 型 CDate ("2008-8-8 ") 返 回 日 期 型 的 变量 
CInt (Variant) 将 变量 转换 成 整数 类 型 CInt ("2008 "返回 整数 2008 
CLng (Variant) 将 变量 转换 成 长 整数 类 型 CLng ("200800" 返 回 长 整 型 数 
CSng (Variant) 将 变量 转换 成 Single 类 型 CSng ("2008.8") 返 回 Single 类 型 
CDbl (Variant 将 变量 转换 成 Double 类 型 CDbl ("2008.8") 返 回 Double 类 型 
CBool (Variant 将 变量 转换 成 布尔 型 CBool ("Tme") 返 回 真 值 

3. 日 期 和 时 间 函 数 

可 以 使 用 日 期 和 时 间 函 数 得 到 各 种 格式 的 日 期 和 时 间 。 常 用 的 日 期 和 时 间 函 数 如 表 3-11 





所 示 。 
表 3-11 常用 的 日 期 和 时 间 函 数 
































函数 功 能 用 法 举例 
Now 得 到 系统 的 当前 日 期 和 时 间 | Now 0 返回 当前 日 期 和 时 间 
Date 得 到 系统 的 日 期 Date 0 返回 "年 :月 :日 " 
Time 得 到 系统 的 时 间 Time 0 返回 "时 :分 : 秒 " 
Year (Date 取得 Date 中 的 年 Year (#2008-1-14 扫 返回 2008 
Month (Date) 取得 Date 中 的 月 Month ( 失 008-1-14 雪 返回 1 
Day (Date 取得 Date 中 的 日 Day (#2008-1-14#) 返 回 14 
Hour (Time) 取得 Time 中 的 小 时 Hour (#10:23:36 贡 返回 10 
Minute (Time) 取得 Time 中 的 分 钟 Minute (#10:23:36 胡 返回 23 
Second (Time) 取得 Time 中 的 秒 Second (#10:23:36 胡 返回 36 
Weekday (Date 取得 给 定 日 期 是 星期 几 如 果 是 星期 天 返回 1, 如 果 是 星期 一 返回 2, 以 此 类 推 
4 数学 函数 
在 设计 某 些 系统 的 时 候 ， 数 学 函数 可 以 大 大 简化 代码 的 工作 量 。VBScript 常用 的 数学 函数 











如 表 3-12 所 示 。 


表 3-12 VBScript 常用 的 数学 函数 





用 法 举例 
Abs (-1) 的 值 为 1 
Sqr (4) 的 值 为 2 
Sin (3.14159265) 的 值 接近 0 


M/E 




















一 个 数 的 平方 要 
E 弦 值 








上 




















续 表 


















































函数 用 法 举例 
Cos (num) Cos (3.14159265) 的 值 接近 -1 
Tan (num) 返回 正切 值 Tan (3.14159265) 的 值 接近 0 
Atn (num) 返回 反正 切 值 Atn (0) 的 值 为 0 
Log (num 返回 一 个 数 的 自然 对 数 Log (2) 的 值 为 0.693 
Rnd i Rnd 0 的 值 为 0.5273 
Ubound (数组 名 ， 维 数 ) 返回 数组 某 维 的 最 大 下 标 如 果 只 有 一 维 可 以 省 略 维 数 
Lbound (数组 名 ， 维 数 ) 返回 数组 某 维 的 最 小 下 标 如 果 只 有 一 维 可 以 省 略 维 数 

5. 检验 函数 
VBScript 提供 了 一 些 常用 的 检验 函数 ， 具 体 如 表 3-13 所 示 。 
表 3-13 常用 的 检验 函数 
用 法 举例 


如 果 返 回 0 表示 空 ，2 表示 整数 ，7 表示 日 期 ，8 表 
示 字 符 串 ，11 表示 布尔 变量 ，8192 表示 数组 
IsNumeric (11) 返 回 tme 

IsDate (Date0) 返 回 true 

IsNull NulD) 返 回 tme 

IsEmpty (Empty) 返 回 true 

IsArray (数组 名 ) 返 回 true 





3.7 小 结 


本 章 介 绍 了 VBScript 数据 类 型 、 过 程 、 函 数 ， 以 及 常用 的 两 种 控制 结构 : 分 支 语句 和 循 
环 语句 。 本 章 的 重点 是 分 支 语句 和 循环 语句 。 分 支 语 句 有 3 种 基本 形式 : If...Then、 
If...Then...Else 和 Select Case。 这 些 语句 都 是 根据 是 否 满足 某 一 条 件 ， 来 决定 执行 的 语句 ， 在 
使 用 的 时 候 需 要 注意 每 个 分 支 语 句 的 作用 范围 。 本 章 的 难点 就 是 遍历 数组 元 素 。 数 组 分 为 : 静 
态 和 动态 。 遍 历数 组 的 元 素 ， 可 以 使 用 循环 语句 For Each...Next 实现 ， 这 需要 掌握 VBScript 
的 数据 类 型 和 循环 语句 。 另 外 ，Do...Loop 语句 的 功能 比较 强大 ， 可 以 实现 其 他 循环 语句 的 
功能 。 
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nm 窜 摘要 lss 

ASP 提供 内 建 对 象 ， 这 些 对 象 都 可 以 用 来 拓展 ASP 应 用 程序 的 功能 。 并 且 通 过 这 些 对 象 ， 
使 用 户 更 容易 收集 通过 浏览 器 请 求 发 送 的 信息 、 响 应 浏览 器 以 及 存储 用 户 信 息 。 本 章 主要 介绍 
ASP 的 两 个 主要 对 象 Request 和 Response。 利 用 Request 对 象 从 客户 端 获取 信息 ; 利用 Response 
对 象 向 客户 端 传输 信息 。 


/学 习 目 标 1owecwve 


@ 掌握 Request 对象 常 用 的 集合 和 方法 。 
@ 掌握 Response 对 象 常用 的 集合 和 方法 。 


4.1 内 置 对 象 简介 


ASP 提供 了 很 多 重要 内 置 对 象 ， 本章 及 以 后 章节 将 介绍 这 些 对 象 。 在 使 用 这 些 对 象 时 ， 用 
户 不 需要 作 任何 声明 ， 所 以 称 它们 是 内 置 对 象 。 这 些 内 置 对 象 如 表 4-1 所 示 。 


表 4-1 ASP 内 置 对 象 








ASP 内 置 对 象 
从 浏览 器 端 获 取 用 户 信息 
Response 对 象 控制 和 管理 发 送 到 浏览 器 上 的 信息 
Server 对 象 控制 网 络 服务 器 各 方面 问题 
Session 对 象 存储 单个 用 户 的 信息 ， 以 便 重 复 使 用 
Application 对 象 控制 和 管理 一 个 ASP 应 用 用 户 能 得 到 的 所 有 条 目 





每 个 内 置 对 象 的 简要 介绍 如 下 。 

(1) Application 对 象 。Application 对 象 用 来 存储 一 个 应 用 中 所 有 用 户 共享 的 信息 。 例 如 ， 
可 以 利用 Application 对 象 在 站 点 的 不 同 用 户 间 传 递 信 息 。 

(2) Request 对 象 。Request 对 象 可 以 用 来 访问 所 有 从 浏览 器 到 服务 器 的 信息 。 因 此 ， 可 以 











利用 Request 对 象 来 接收 用 户 在 HTML 页 的 窗 体 中 的 信息 。 

(3) Response 对 象 。Response 对 象 用 来 将 信息 发 送 回 浏览 器 。 可 以 利用 Response 对 象 将 
脚本 语言 结果 输出 到 浏览 器 上 。 

(4) Server 对 象 。Server 对 象 提供 运用 在 许多 服务 器 端的 应 用 函数 。 可 以 利用 Server 对 象 
来 控制 脚本 语言 在 超过 时 限 前 的 运行 时 间 。 
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(5) Session 对 象 。Session 对 象 用 来 存储 一 些 普 通用 户 在 滞留 期 间 的 信息 。 可 以 用 Session 
对 象 来 存储 一 个 用 户 在 访问 站 点 时 的 滞留 时 间 。 

这 5 大 对 象 具有 面向 对 象 的 特点 ， 系 统 已 经 将 大 部 分 细节 封装 好 了 。 这 为 ASP 程序 员 编 
程 带 来 了 极 大 的 方便 。ASP 程序 员 只 要 了 解 这 些 对 象 的 方法 (Methods)、 属 性 (Properties) 和 事件 
(Event)， 就 可 以 使 用 。 


4.2 ”Request 对 象 


Request 对 象 是 ASP 最 有 用 的 对 象 之 一 ， 读 者 一 定 要 理解 并 掌握 它 。Request 对 象 标识 由 
客户 端 发 出 的 HTTP 请 求 报 文 。 它 包含 客户 端 浏览 器 发 送 过 来 的 数据 ， 用 来 连接 客户 端 和 服务 
器 端的 Web 页 等 信息 。 

事实 上 ，Request 对 象 的 功能 是 单 向 的 ， 只 能 接收 客户 端 Web 页 提交 的 数据 。 而 另 一 个 对 
象 Response 的 功能 ， 是 将 服务 器 端的 数据 发 送 到 客户 端 浏 览 器 。Response 对 象 将 在 下 一 节 介 
绍 。 这 两 个 对 象 的 功能 是 对 立 的 ， 结 合 在 一 起 使 用 ， 可 以 实现 客户 端 Web 页 面 数 据 与 服务 器 


端的 交换 。 
Request 对 象 包含 了 很 多 集合 、 属 性 和 方法 ， 利 用 这 些 集合 、 属 性 和 方法 可 以 接收 到 浏览 
器 的 请 求 信息 。 


Request 对 象 的 应 用 非常 简单 ， 其 语法 格式 如 下 : 

Redquest [ .集合 | 属性 1 方法 ] (变量 ) 

Request 对 象 唯一 的 属性 TotalBytes 提供 用 户 请 求 的 字 节 数量 的 信息 ， 并 很 少 用 于 ASP 页 
中 。Request 对 象 唯 一 的 方法 BinaryRead 允许 访问 从 一 个 <FORM> 段 中 传递 给 服务 器 的 用 户 请 
求 部 分 的 完整 内 容 。 

Request 对 象 主要 以 集合 为 主 ， 共 提供 了 5 个 集合 ， 用 来 处 理 客户 端的 请 求 信息 。Request 
对 象 的 常用 集合 如 表 4-2 所 示 。 


表 4-2 ”Request 对 象 的 常用 集合 


集合 名 称 说 明 

Cookies 所 有 Cookies 值 的 集合 。 每 个 成 员 为 只 读 

on ee 
每 个 成 员 为 只 读 

QueryString 。 ”| 用 户 请 求 URL 后 面 的 文本 ， 每 个 成 员 为 只 读 











ClientCertificate | 当 客户 端 访问 页 面 或 资源 时 ， 用 来 向 服务 器 表明 身份 的 客户 证 书 的 字段 或 数值 的 
集合 ， 每 个 成 员 为 只 读 





4.2.1 FORM 集合 


HTML 表单 是 由 Web 页 上 的 HTML 标记 排列 组 成 的 界面 元 素 。 例 如 ， 文 本 框 和 按钮 都 是 
典型 的 表单 元 素 ， 这 些 元 素 可 以 使 用 户 与 Web 页 进行 交互 ， 并 将 信息 提交 给 Web 服务 器 。 
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当 使 用 POST 方式 提交 数据 时 , 表单 中 数据 被 保存 在 Request 对象 的 form 集合 中 。 用 户 可 
以 使 用 Request.form 集合 获取 表单 中 控件 的 值 ， 语 法 格式 如 下 : 


Redquest.form(element) [(index)][.Count] 


参数 说 明 如 下 。 
(1) _ element 表示 form 集合 要 检索 的 控件 名 称 。 
(2) 当 指定 的 控件 具有 多 个 值 时 ，index 用 于 指定 控件 多 个 值 中 的 某 一 个 ;， 当 控件 不 具有 
多 个 值 时 ， 指 定 index 没有 意义 ; 
(3) Count 返回 相同 名 称 组 件 的 总 数 。 
下 面 通过 实例 介绍 如 何 获取 表单 中 控件 的 值 。 
该 实例 的 界面 代码 如 下 : 
<html> 
<head> 
<!--- 设 置 该 网 页 的 标题 ---> 
<title> 表 单数 据 </title> 
</head> 
<body> 
<!--- 添 加 一 个 表格 ---> 
<table> 
SEr> 
<td> 
<!--- 添 加 一 个 表单 ---> 
<form action="logon.asp" method="post"> 
<!--- 在 该 表单 中 添加 一 个 文本 框 ---> 
<P> 用 户 名 : <input type="text" size="20" name="User"></P> 
<!---&nbsp; 表示 在 网 页 中 显示 一 个 空格 ，---> 
<P> 密 &nbsp;&nbsp; 码 : <input type="text" size="20" 
name="Password"></P> 
<!--- 添 加 一 个 提交 按钮 ---> 
<P> <input type="submit" size="20" name="Bl" value=" 提 交 程 序 


2 
</form> 
</td> 
</tr> 
</table> 
</body> 
</html> 


运行 该 段 代码 ， 结 果 如 图 4-1 所 示 。 
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下 面 是 处 理 提交 数据 的 代码 。 该 段 代 码 获 取 两 个 文本 框 的 输入 数据 ， 并 显示 在 页 面 上 。 
代码 如 下 : 


<html> 

<head> 

<title> 处 理 提交 的 数据 </title> 

</head> 

<body> 

<P><form > 

<!--- 设 置 字体 的 颜色 为 红色 ---> 

<font Color="red"> 
<!--- 使 用 request .form 获取 名 为 "user" 文 本 框 的 值 ---> 
<%=request .form("user")%> 

</font> 

登录 成 功 ! </P> 

<p> 你 输入 的 密码 是 : 

<!--- 设 置 字体 的 颜色 为 红色 ---> 

<font color="red"> 

<!--- 使 用 request .form 获取 名 为 " password" 文 本 框 的 值 ---> 
<%=request .form("password")$%> 

</font></P> 

</form> 

</body> 

</html> 


在 图 4-1 所 示 界面 中 的 “用 户 名 ”文本 框 中 输入 了 analy, 在 “密码 ”文本 框 中 输入 12345， 
则 该 程序 的 运行 结果 如 图 4-2 所 示 。 
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图 4-2 处 理 提交 的 数据 
4.2.2 QueryString 集合 


URL 是 Uniform Resource Location 英文 单词 的 缩写 ， 可 以 翻译 为 “统一 资源 定位 符 ”。 简 
单 来 说 ，URL 是 Intemet 上 用 来 描述 信息 资源 的 字符 串 ， 使 用 它 可 以 确定 文件 、 服 务 器 地 址 或 
者 目录 。 网 页 可 以 使 用 URL 跳 转 到 其 他 页 面 在 网 页 跳 转 时 ， 也 可 以 使 用 URL 传递 参数 。 通 
过 URL 传递 参数 的 形式 如 下 : 

http://host/photo.asp?id=Numgname=UserName 

URL 的 形式 说 明 如 下 。 

(1) host 为 网 站 域名 。 
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(2) photo.asp 为 指定 的 文件 名 。 

(3) 字符 “?” 后 为 参数 列表 。 

(4) 这 和 name 为 参数 名 称 。 

(5) Num 和 UserName 为 参数 的 内 容 。 

(6) 使 用 & 字 符 连 接 两 个 不 同 的 参数 。 

通常 使 用 URL 传递 参数 的 方法 是 GET 方法 ， 而 不 是 POST 方法 。GET 方法 把 参数 作为 
URL 字符 串 的 一 部 分 ， 从 一 个 页 面 传递 到 另 一 个 页 面 。GET 方法 传递 数据 的 时 候 ， 需 要 传递 
的 数据 都 会 被 追加 放 在 URL 地 址 后 面 ， 之 间 通 过 问号 “? ” 隔 开 。 传 递 参数 的 格式 是 
name=value，name 就 是 要 传递 数据 的 名 称 ，value 是 要 传递 的 数值 ， 其 中 name 是 要 能 够 让 服 
务 器 识别 。 当 有 多 个 值 要 传递 的 时 候 ， 多 个 值 之 间 通 过 & 分 隔 开 。Request 对 象 的 QueryString 
集合 可 以 直接 从 URL 中 获取 参数 信息 。 

Request 对 象 的 QueryString 集合 的 语法 格式 如 下 : 


Request .QuerySstring (VariName) [ (index) .Count] 


参数 说 明 如 下 。 

(1) VariName 为 变量 的 名 称 。 

(2) index 为 索引 项 ， 可 以 取得 同名 变量 的 名 称 。 

(3) Count 为 相同 名 称 组 件 的 个 数 。 如 果 不 存在 相同 的 组 件 ， 则 返回 1; 不 存在 相同 的 组 
件 的 话 则 返回 0。 

除了 读 取 表 单元 素 传递 的 参数 外 , QueryString 集合 还 可 以 通过 读 取 HTTP 查询 字符 串 中 的 
参数 值 来 传递 参数 。 使 用 QueryString 集合 的 语法 格式 如 下 : 


Request .QueryString (变量 ) [ (index) | .count] 


其 中 ，“ 变 量 ” 为 在 HTTP 查询 字符 串 中 指定 要 检索 的 变量 名 称 ，index 用 于 检索 变量 多 
个 值 中 的 某 一 个 ，count 用 于 指定 QueryString 中 某 变 量 值 的 个 数 。 

QueryString 集合 读 取 表 单元 素 的 方法 与 Form 集合 类 似 ， 只 是 必须 把 表单 的 Method 属性 
设置 为 GET。 使 用 Request 对 象 的 QueryString 集合 可 以 获取 URL 信息 ， 获 取 的 方法 有 3 种 。 
下 面 是 一 个 使 用 QueryString 集合 获取 URL 信息 的 例子 ， 通 过 这 个 实例 说 明 这 3 种 方法 。 

可 以 把 Request 对象 QueryString 看 作 一 个 数组 ， 使 用 For...Next 循环 获取 URL 请 求 中 参 
数 的 名 称 和 值 。 具 体 实现 的 代码 如 下 : 


<html> 
<head> 
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> 
<title> 新 建 网 页 1</title> 
</head> 
<a href="index.asp?id=3gname=admin">link</a> 
<body> 
< 名 
"使 用 循环 获取 URL 中 参数 的 值 
For each str in Request.Querystring 
Response.write strg" 值 是 "gRequest.QueryString (str) &"<BR>" 
Next 
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名 > 

</body> 

</html> 

代码 说 明 如 下 。 

(1) link 链接 是 用 来 提交 数据 的 。 

(2) For ,Next 循环 获取 URL 请 求 中 字符 “?” 后 所 有 参数 名 称 。 

(3) 使 用 QueryString 集合 获取 每 个 参数 的 值 ， 并 使 用 Response 对 象 的 write 方法 输出 。 
运行 该 段 代 码 ， 单 击 link 超 链 接 ， 结 果 如 图 4-3 所 示 。 













link id 值 是 3 
name 值 是 admin 
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图 4-3 获取 URL 参数 


如 果 知 道 参数 的 名 字 ， 可 以 使 用 QueryString 集合 直接 获取 该 参数 的 值 。 这 种 方法 比较 简 
也 比较 方便 。 上 面 的 例子 可 以 改 成 如 下 代码 : 


<html> 

<head> 

<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> 
<title> 新 建 网 页 1</title> 

</head> 

<a href="index.asp?id=3gname=admin">link</a> 

<body> 

<% 

"使 用 参数 的 名 字 直 接 从 QueryString 集合 中 获取 参数 的 值 

Response.write "参数 Name 的 值 是 "&Request .Querystring ("name") &"<BR>" 
Response.write "参数 id 的 值 是 "&Request .Querystring ("id") &"<BR>" 


人 
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了 该 段 代码 ， 单 击 link 超 链接 ， 结 果 如 图 4-4 所 示 。 

















参数 Name 的 值 是 admin 
参数 id 的 值 是 3 
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图 4-4 获取 URL 参数 
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如 果 知 道 参 数 在 QueryString 集合 中 的 序号 ， 使 用 序号 也 可 以 获取 参数 的 值 。 使 用 序号 获 
取 参 数 的 值 比较 麻烦 ， 需 要 获取 参数 的 序号 。 如 果 参 数 在 URL 中 的 顺序 变 了 ， 就 不 能 正确 地 
获取 参数 的 值 。 上 面 的 例子 可 以 改 成 如 下 代码 : 
<html> 
<head> 
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> 
<title> 新 建 网 页 1</title> 
</head> 


<a href="index.asp?id=3&gname=admin">link</a> 
<body> 


<% 
"使 用 参数 的 序号 直接 从 QueryString 集合 获取 参数 的 值 
Response.write "参数 Name 的 值 是 "&Request.QueryString (1) &"<BR>" 
Response.write "参数 id 的 值 是 "&Request.QueryString (2) &"<BR>" 
%> 
</body> 
</html> 


4.2.3 ”Cookies 集合 


Cookies 是 一 种 Web 服务 器 通过 浏览 器 在 访问 者 的 硬盘 上 存储 信息 的 手段 。Cookies 仅仅 
是 一 个 文本 文件 , 相当 于 具有 唯一 性 的 标签 。 当 浏览 者 访问 一 个 需要 唯一 标识 站 点 信息 的 Web 
站 点 时 ， 它 会 在 浏览 者 的 硬盘 上 留 下 一 个 标记 ， 当 浏览 者 下 一 次 访问 此 站 点 时 ， 站 点 的 页 面 会 
查找 这 个 标记 。 

通常 Cookies 的 内 容 包含 用 户 的 有 关 信 息 ， 如 用 户 访问 该 站 点 的 次 数 、 身 份 识别 号 码 、 用 
户 在 Web 站 点 上 购物 的 方式 、 注册 论 坛 时 的 个 人 信息 等 。 这 些 信息 全 部 以 Cookies 保存 在 客户 
机 上 。 对 大 型 网 站 来 说 ， 节 省 了 存储 用 户 信息 的 大 量 空间 。 

Cookies 集合 是 Request 对 象 和 Response 对 象 共 有 的 一 项 常用 到 的 集合 .用 户 在 通过 HITP 
协议 访问 一 个 主页 时 ， 每 次 连接 时 都 要 重新 开始 。 因 此 ， 如 果 要 判断 某 个 用 户 是 否 曾经 进入 本 
网 站 ， 可 以 使 用 Cookies 集合 。 

向 正 浏览 器 写 入 Cookies 对 象 的 方法 如 下 : 

Response.Cookies ("Cookies 对 象 名 称 ") 二 "Cookies 对 象 的 内 容 " 

读 取 正 浏 览 器 中 保存 的 Cookies 对 象 的 方法 如 下 : 

Request .Cookies ("Cookies 对 象 名 称 ") 


存储 在 下 浏览 器 中 的 Cookies 对 象 也 有 生命 周期 。 在 默认 情况 下 ，Cookies 对 象 的 生命 周 
期 为 正 浏 览 器 打开 期 间 , 一 旦 正 浏览 器 关闭 ，Cookies 对 象 也 被 清除 。 可 以 通过 Cookies 集合 
的 Expires 属性 来 设置 Cookies 对 象 的 生命 周期 。Expires 可 以 理解 为 Cookies 的 过 期 日 期 。 使 
用 方法 如 下 : 

Response.Cookies ("Cookies 名 称 ") .Expires="YYYY/MM/DD" 

Response.Cookies ("Cookies 名 称 ") .Expires=date () +number 


上 面 的 YYYY/MM/DD 代表 年 月 日 的 格式 ，number 代表 的 是 某 个 整数 。 含 义 为 定义 的 


/ek 


ASP+Dreamweaver 动态 网 站 开发 (第 2 版 ) 





Cookies 对 象 在 某 个 日 期 前 都 有 效 。 
下 面 通过 实例 介绍 如 何 统计 用 户 访问 站 点 次 数 。 
当 用 户 首 次 访问 某 站 点 网 页 时 ， 客 户 端 机 器 上 没有 保存 相应 Cookies， 网 页 显示 “欢迎 首 
次 光临 ”。 以 后 当 用 户 再 次 打开 此 页 面 时 ， 用 户 机 器 上 已 经 被 写 入 了 相应 的 Cookies 内 容 ， 从 
而 显示 出 用 户 是 第 几 次 登录 本 网 站 。 
该 实例 的 核心 代码 如 下 : 
< 要 
dim num 
num=request .cookies ("visitnum") 
if num="" then 
response.write "欢迎 您 首次 光临 本 站 ! " 
num=1 
[二 
num=num+1 
response.write "欢迎 进入 本 站 ， 您 是 第 "&numg" 次 访问 本 站 ! " 
end if 
response.cookies ("visitnum")=num 


response.cookies ("visitnum") .expires=date+7 
%> 


在 上 述 代码 中 ， 首 先 定义 变量 num， 用 来 记录 某 用 户 的 访问 次 数 。 通 过 Request 对 象 读 取 
客户 端的 名 为 visitnum 的 Cookies 值 ， 并 将 该 值 赋 给 变量 num。 

如 果 用 户 是 首次 访问 该 网 页 ， 此 时 根本 不 能 提取 到 Cookies 值 ， 所 以 变量 的 值 为 空 。 此 时 
输出 信息 “首次 访问 ”， 同 时 为 变量 num 赋值 为 1。 

如 果 用 户 不 是 首次 访问 ， 则 提取 的 Cookies 必定 有 值 ， 该 值 表示 记录 上 次 是 第 几 次 访问 ， 
而 本 次 的 访问 计数 加 1 后 输出 第 几 次 访问 。 

最 后 ， 将 本 次 计数 的 值 ， 即 变量 num 的 值 写 入 到 客户 端 名 称 为 visitnum 的 Cookies 上 ， 并 
为 其 设 定 过 期 时 间 为 当前 时 间 之 后 的 7 天 内 有 效 ， 以 作 下 次 提取 同名 Cookies 之 用 。 

当 用 户 第 一 次 登录 时 的 页 面 如 图 4-5 所 示 。 

用 户 第 二 次 登录 时 的 页 面 结果 如 图 4-6 所 示 。 
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图 4-5 首次 登录 页 面 图 4-6 第 二 次 登录 


4.2.4 ServerVariables 集合 


在 通常 情况 下 ， 浏 览 器 的 HITP 请 求 和 服务 器 响应 都 包含 了 很 多 Header( 即 HITP 的 头 信 


一 多 


加 
mm 图 
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息 )。 它 们 主要 用 于 提供 有 关 请 求 和 响应 的 附加 信息 。 要 查看 这 些 Header， 可 以 使 用 Request 
对 象 的 ServerVariables 集合 。 在 该 集合 中 ,除了 包含 HTTP Header 外 ， 还 有 一 些 服务 器 端的 相 
关 信息 。 通 过 使 用 ServerVariables 集合 的 成 员 ， 可 以 获取 有 关 发 出 请 求 的 浏览 器 类 型 的 信息 、 
请 求 者 的 瑟 地址、 构成 请 求 的 HTTP 方法 以 及 ASP 脚本 参与 的 HITP 事务 的 其 他 相关 数据 。 
ServerVariables 集合 可 以 获取 的 环境 变量 众多 ， 常 用 的 如 表 4-3 所 示 。 

















表 4-3 ”环境 变量 

环境 变量 名 称 说 明 
All HTTP 客户 端 传送 的 HTTP 的 Header 
Auth Password 客户 端 浏览 器 中 输入 的 密码 
Auth Type 客户 端 用 户 认证 方式 
Auth User 客户 端 输入 的 用 户 名 
Content Length 客户 端 发 出 的 内 容 长 度 
Content Type 内 容 传送 的 类 型 
HTTP Connection 客户 端 与 服务 器 端 建立 的 连接 类 型 
HTTP Host 客户 端 主机 名 称 
HTTP_User_ Agent 浏览 器 的 相关 信息 
HTTP_Referer 浏览 器 导向 至 该 页 前 的 网 址 
HTTP Cookie 浏览 器 的 Cookie 
Local Addr 服务 器 卫 地 址 
Logon User 登录 Windows 的 用 户 账号 
Query_string 浏览 器 端 返回 的 表单 数据 
Remote_Addr 发 出 请 求 的 远程 主机 的 他 地 址 
Remote_Host 发 出 请 求 的 远程 主机 的 名 称 
Remote_USER 远程 用 户 的 名 称 
Request_Method 发 送 数据 到 服务 器 所 采取 的 方式 
Server Name 服务 器 端的 计算 机 名 称 
Server_Port 服务 器 端的 连接 端口 
URL 当前 网 页 的 虚拟 路 径 


Request 对 象 的 ServerVariables 集合 获取 环境 变量 信息 的 方法 如 下 : 
Request .ServerVariables (环境 变量 ) 
下 面 是 获取 一 些 常用 环境 变量 的 例子 。 代 码 如 下 : 


<html> 

<body> 

客户 端的 IP 地 址 为 : <%$=Request .servervariables ("remote addr") &"<BR>"$> 
qu 

客户 端 主机 名 称 为 : <$=Request .servervariables ("http host") &"<BR>"$> 

客户 端 浏 览 器 信息 为 : <$=Request .servervariables ("http user agent")&"<BR>"g> 
qu p SG 

网 页 导向 前 的 网 址 为 : <s=Request .servervariables ("http refer") &"<BR>"Ss> 


</body> 
M/E 





</html> 
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客户 端的 IP 地 址 为 : :: 
客户 端 主机 名 称 ; 
客户 端 浏 览 器 信 
WOW64; Trident/7.0; 
网 页 导向 前 的 网 址 为 : 






Mozilla/5.0 (Windows NT 10.0; 
rv:11.0) like Gecko 
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图 4-7 ”获取 常用 环境 变量 值 
ServerVariables 集合 的 返回 值 ， 可 以 看 作 一 个 数组 。 使 用 For...Next 循环 可 以 获取 所 有 的 


环境 变量 信息 。 下 面 是 获取 所 有 环境 变量 值 的 例子 。 代 码 如 下 : 


<html> 
<body> 
<P> 环 境 变量 列表 : </p> 
< 条 
for each ser varName in Request.ServerVariables 
Response.write ser varNameg":"& 
Request .ServerVariables (ser varName) &"<BR>" 
Next 
务 > 
</body> 
</html> 


运行 该 段 代码 ， 结 果 如 图 4-8 所 示 。 





6 [大 二 本本 二 网关 全 EH 
| a /Sin a 
环境 变量 列表 


ALL_HTTP: HTTP_CONNECTION: Keop-Alive HTTP_ACCEPT: text/html, 
plication /shtelazl, image/ jar, ¢/¢ MFP.ACCEPT_ENCOODING:gzip, deflate 
sE: 2h-CN 
IONIDCCDQQTRA=PHHDKINDLCKKOKJOCMNBGOAP; vi 
: HTTP_REFERER:http://localhost/ch4, 
HTTP_USER_AGENT:Mozilla/5.0 (Windows NT 10.0: WOWG4; Trident/7.0; ry:11.0) 
like Gecko 

ALL_RAW:Connect ion; Keep-Alive Accept: text/htal, application/xhtalzxal, 






image/ jxr, */* Accept-Encoding: szip, deflate Accept-Language: zh-CN 
Cookie: ASPSESSIONIDCCDQQTRA=PHHDKINDLCKKORJGCNEGOAP; visitnum=5 Host 
Pi: 加 Ha mews Ser Hmas ST FE A 





图 4-8 获取 环境 变量 


4.2.5 ClientCertificate 集合 


当 客户 端 访 问 服务 器 的 时 候 ， 使 用 Client Certificate 集合 ， 服 务 器 可 以 获取 客户 端 身份 验 


证 信息 。Client 语法 格式 如 下 : 


Request.ClientCertificate (Key) 


其 中 ， 参 数 Key 指定 客户 端 返回 身份 验证 信息 内 容 。 该 关键 字 可 以 带子 参数 。 


NNN 


ClientCertific 
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ate 集合 常用 的 关键 字 如 表 4-4 所 示 。 


表 4-4 ClientCertificate 集合 常用 的 关键 字 














关键 字 说 明 
Certificate 获取 ASNI1 格式 的 所 有 二 进 制 信息 
SerialNumber 获取 使 用 “” 分 割 的 四 组 十 六 进 制 序号 ， 使 用 ASCI 码 表示 
Flags 获取 其 他 的 身份 验证 信息 标示 
Subject 获取 子 关键 字 所 指定 的 信息 ， 如 果子 关键 字 个 数 超过 一 个 需要 用 “,” 分 隔 














Issuers 获取 指定 子 关键 字 的 身份 验证 信息 ， 如 果子 关键 字 个 数 超过 一 个 需要 用 “,” 分 隔 
ValidFrom 获取 身份 验证 信息 的 开始 时 间 
ValidUntil 获取 身份 验证 信息 的 结束 时 间 


Subject 和 Issuers 可 以 使 用 子 关 键 字 获 取 身 份 验证 信息 ， 这 些 子 关键 字 的 说 明 如 表 4-5 


所 示 。 


子 关键 


表 4-5 Subject 和 Issuers 的 子 关键 字 


字 说 明 
国家 的 名 称 
客户 端 名 称 
客户 端 用 户 名 称 
客户 的 姓氏 
客户 端的 位 置 
公司 或 者 组 织 的 名 称 
公司 或 者 组 织 中 的 部 门 名 称 
用 户 职称 


4.3 Response 对象 


Response 对 象 也 是 ASP 中 最 常用 的 对 象 之 一 。4.2 节 中 介绍 的 Request 对 象 的 功能 是 单 向 
的 ， 它 只 能 接收 客户 端 Web 页 提交 的 数据 。 对 象 Response 的 功能 将 信息 传递 给 客户 端 对 象 ， 
如 将 服务 器 端的 数据 发 送 到 客户 端 用 户 的 浏览 器 、 重 定向 浏览 器 到 另 一 个 URL 或 设置 Cookie 


等 。 这 两 个 对 象 结 


告 合 在 一 起 使 用 ， 可 以 实现 客户 端 与 服务 器 端的 数据 文 换 。 





Response 对 象 的 功能 是 将 服务 器 的 数据 发 送 到 用 户 端的 浏览 器 。 使 用 Response 对 象 的 集 


合 、 属 性 和 方法 ， 
(1) 把 字符 上 
输出 内 容 输出 。 





可 以 设置 数据 输出 到 浏览 器 端的 方式 。Response 对 象 的 主要 功能 如 下 。 
有 发送 到 客户 端 。 这 是 Response 对 象 的 基本 功能 ， 可 以 使 用 Response 对 象 将 





(2) 控制 信息 的 传送 。Response 对 象 可 以 控制 服务 器 把 数据 传送 到 客户 端的 方式 。 
Response 对 象 可 以 控制 服务 器 一 边 执行 脚本 、 一 边 向 客户 端 发 送 数据 信息 ,也 可 以 在 执行 完 脚 


M/E 
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本 后 把 数据 一 并 输出 到 客户 端 。 

(3) 重 定向 网 页 。 该 功能 使 用 比较 普遍 。 重 定向 网 页 可 以 直接 控制 Web 页 的 跳 转 。 如 当 
网 页 出 现 错误 时 ， 可 以 把 网 页 重新 定向 到 错误 处 理 页 。 

(4) 控制 客户 端 浏览 器 Cache。 该 功能 可 以 设置 网 页 是 否 可 被 浏览 器 缓存 。 缓 存 就 是 客户 
端 在 访问 网 页 后 ， 把 网 页 缓存 到 客户 端 浏览 器 。 客 户 端 再 次 访问 该 网 页 时 ， 就 从 缓存 访问 该 
网 页 。 

(5) 设置 客户 端 浏览 器 的 Cookie。Cookie 存放 着 客户 端 用 户 信息 。 

Response 对 象 的 属性 和 方法 分 别 如 表 4-6 和 表 4-7 所 示 。 


表 4-6 Response 对 象 的 属性 











属 性 说 明 
Buffer 设置 是 否 缓冲 输出 页 
CacheControl 设置 代理 服务 器 是 否 缓存 ASP 的 输出 页 
Charset 将 字符 编码 方式 添加 到 内 容 类 型 标题 中 
ContentType 设置 输出 的 HTTP 内 容 类 型 ， 默 认 的 为 TexWHTML 
Expires 设置 浏览 器 中 缓存 页 面 的 缓存 的 时 间 ， 单 位 为 分 钟 
ExpiresAbsolute 设置 浏览 器 上 缓存 页 面 超时 的 日 期 和 时 间 
IsClientConnected 说 明 客户 端 是 否 与 服务 器 连接 
Status 服务 器 返回 的 状态 行 的 值 
表 4-7 Response 对 象 的 方法 
属 性 说 明 
AddHeader 使 用 用 户 定义 的 标 头 信息 设置 HTML 标题 
AppendToLog 在 服务 器 日 志 记录 后 添加 信息 
BinaryWrite 将 信息 写 入 到 HTTP 输出 ， 并 且 不 作 任 何 字符 转换 














Clear 清除 任何 缓冲 的 HIML 输出 
End 停止 ASP 文件 的 执行 并 返回 当前 的 结果 
Flush 立即 输出 缓冲 区 的 输出 并 清除 缓冲 区 
Redirect 将 客户 端的 浏览 器 重 定向 至 指定 的 网 页 
Write 将 信息 写 入 当前 的 HITP 输出 

4.3.1 Write 方法 


Response 对 象 的 Write 方法 可 以 向 客户 端 浏览 器 输出 信息 。 语 法 格式 如 下 : 

Response .Write Data 

其 中 ，Data 为 需要 输出 的 信息 。 该 方法 并 不 是 把 输出 的 内 容 直 接 显示 在 客户 端 浏览 器 ， 而 
是 输出 到 HTML 代码 中 。 输 出 内 容 可 以 为 HTML 代码 、VBScript 代码 或 者 JavaScript 代码 。 
以 下 是 输出 信息 的 几 种 方式 。 


“NNN 
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(1) 直接 输出 字符 串 。 
下 面 的 两 种 方法 都 可 以 直接 输出 字符 串 。 


< 条 
Response.Write "RSP 大 全 " ' 输 出 "ASP 大 全 " 
Response.Write ("ASP 大 全 ") ' 输 出 "ASP 大 全 " 
名 > 


(2) 输出 变量 值 。 
字符 串 和 变量 一 起 输出 ， 需 要 使 用 符号 & 连 接 。 





< 

Data=" ASP 大 全 " 

Response.Write Data "输出 Data 的 内 容 
Response.Write (Data) "输出 Data 的 内 容 
Response.Write ("输出 的 内 容 是 : "gData) ' 输 出 "输出 的 内 容 是 : ASP 大 全 " 
%> 


(G3) “=” 输 出 形式 。 

如 果 符 号 “<%” 和 “%>” 中 间 只 有 一 行 代码 ， 并 且 是 输出 代码 ， 可 以 使 用 “=” 代 替 输 
出 语句 。 下 面 是 使 用 “=” 输 出 的 例子 ， 代 码 如 下 : 

<% =Now() $> 

上 述 代码 与 下 面 的 效果 是 一 样 的 。 

<% 

"向 客户 端 页 面 中 输出 当前 的 日 期 和 时 间 

Response.Write Now() 

务 > 

但 是 下 面 的 代码 是 错误 的 ， 因 为 “=” 与 Response.Write 语句 不 能 同时 使 用 。 


<% =Response.Write Now() $> 


另外 ，Response 对 象 Write 方法 可 以 输出 含有 HTML 标记 数据 ， 方 法 如 下 : 

< 名 

' 输 出 HTML 标记 ， 在 客户 端 会 居中 显示 ASP 大 全 

Response.Write "<p align=center>ASP 大 全 </p>" 

%> 

如 果 输 出 信息 中 含有 引号 ， 不 能 直接 写成 “"”， 可 以 使 用 “'” 来 代替 。 下 面 是 输出 一 个 
超 链接 的 例子 。 代 码 如 下 。 

< 

Response.Write "<A href='index.asp' >ASP 大 全 </A>" 

务 > 

如 果 输 出 信息 含有 “%>”， 不 能 直接 写成 “%>”， 要 使 用 “9%/> ”代替 “%>”。 下 面 是 
输出 一 个 表格 的 例子 。 在 本 例 中 ， 表 格 宽度 使 用 百分比 形式 ，“%” 与 “>” 形 成 了 “9%>”。 
这 时 需要 使 用 “%/>” 代 替 “%>”。 代 码 如 下 。 


<$ 





/a 
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"向 客户 端 输 出 表格 

Response.Write "<Table Align=Center Width=50%/> " 
Response.Write "<TR><TD>" 

Response.Write "<A href='index.asp' >ASP 大 全 </A>" 
Response.Write "</TD></TR><Table >" 

名 > 


下 面 是 输出 页 面 的 例子 : 


<% 

Response.Write "<p align='center'><font size=""6"" color="'#0000FF' face=' 华 
文 行 楷 ' >ASP 大 全 目录 </font></p>" 

Response.Write "<p align='center'>RSP 基础 篇 </p>" 
Response.Write "<table border='1' align=center width=100%/>" 
Response.Write "<tr><td> 第 1 章 ASP 构建 网 站 概述 </td></tr>" 
Response.Write "<tr><td> 第 2 章 VBScript 语句 </td></tr>" 
Response.Write "<tr><td> 第 3 章 VBScript 内 置 函数 </td></tr>" 
Response.Write "<tr><td> 第 4 章 VBScript 对 象 </td></tr>" 
Response.Write "</table>" 

务 > 


4.3.2 ”Redirect 方法 


现在 ， 很 多 网 站 的 网 页 都 是 限制 访问 的 网 页 。 如 果 用 户 没有 访问 该 网 页 的 权限 ， 网 页 自动 
转向 登录 页 面 , 让 用 户 登 录 后 才 可 以 访问 该 页 。 这 样 的 跳 转 功能 , 使 用 Response 对 象 的 Redirect 


方法 也 可 以 实现 。 
Response 对 象 的 Redirect 方法 可 以 将 客户 端的 浏览 器 连接 至 指定 的 页 面 。 该 方法 的 语法 格 
式 如 下 : 


Response.Redirect URL 


其 中 URL 是 为 指定 的 页 面 地 址 。URL 可 以 是 同一 网 站 下 的 虚拟 地 址 ， 也 可 以 是 其 他 网 站 
的 网 址 。 

例如 ， 要 实现 网 站 依据 用 户 的 类 别 ， 显 示 不 同 界面 的 功能 。 下 面 是 该 网 站 显示 不 同 界面 的 
例子 ， 简 化 后 的 代码 如 下 : 


<% 
Dim UserID "保存 用 户 的 用 户 名 称 信息 
UserID =Trim(Request.Form("UserID") ) 
"判断 当前 用 户 是 否 为 管理 员 用 户 
If IsAdmin(UserID) Then 
' 重 定向 页 面 到 Admin.asp 页 面 
Response.Redirect "Admin.asp" 
ElseIf IsTeacher (UserID) Then 
Response.Redirect "Teacher.asp" 
ElseIf IsStudent (UserID) Then 
Response.Redirect "Student .asp" 
Else 
Response.Redirect "Index.asp" 
End If 
%> 


NN 
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代码 说 明 如 下 。 

(1) 代码 使 用 了 函数 IsAdmin(UserID)、IsTeacher(UserID) 和 IsStudent(UserID)。 这 些 函 数 
实现 方法 ， 可 以 参考 第 十 一 章 介绍 的 函数 ISAdmin(UserID) 的 实现 方法 ， 这 里 不 作 介绍 。 

(2) 函数 Admin(UserID) 判 断 当 前 用 户 是 否 为 管理 员 。 如 果 是 则 返回 True， 和 否则 返回 
False。 

(3) 函数 ISTeacher (UserID) 判 断 当前 用 户 是 否 为 老师 .如 果 是 则 返回 True, 否则 返回 False。 

(4) 函数 IsStudent (UserID) 判 断 当 前 用 户 是 否 为 学 生 . 如 果 是 则 返回 True, 否则 返回 False。 

(5) 代码 使 用 到 了 文件 Admin.asp、Teacher.asp、Student.asp 和 Index.asp。 在 测试 代码 时 ， 
这 些 文件 可 以 使 用 下 面 内 容 代 替 。 下 面 是 Admin.asp 文件 内 容 : 

<html> 


<head> 

<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> 
<title> 某 某 网 站 -- 管 理 员 界 面 </title> 

</head> 

<body> 

< 条 

Response.Write "这 是 管理 员 界 面 ! " 

务 > 

</body> 

</html> 


下 面 的 实例 是 实现 网 页 重 定向 。 

在 Dreamweaver 中 新 建站 点 ， 并 且 新 建 两 个 页 面 4-04.asp 和 4-05.asp。 
页 面 的 核心 代码 如 下 : 

<body> 

< 


response.redirect ("4-05.asp") 
务 > 


4-05.asp 页 面 的 核心 代码 如 下 : 


<body> 

<p align="center" class="STYLE1"><strong> 欢 迎 进入 本 网 站 ! </strong></p> 

<p align="center" class="STYLE1"><strong> (此 网 页 是 由 index.asp 页 面 重 定向 而 来 ) 
</strong></p> 

</body> 


通过 上 述 两 个 页 面 的 简单 代码 ， 即 可 实现 页 面 的 重 定向 。 
在 浏览 器 的 地 址 栏 中 输入 http://localhost/xnasp/4-04.asp 后 ， 会 发 现 页 面 显示 的 是 4-05.asp 
的 内 容 ， 结 果 如 图 4-9 所 示 。 
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图 4-9 ” Redirect 方法 的 使 用 


Redirect 方法 应 该 放 在 所 有 文字 之 前 ， 以 确定 不 向 浏览 器 返回 任何 内 容 。 如 果 的 确 需要 将 
Redirect 方法 放 在 某 些 内 容 之 后 ， 就 必须 启动 缓冲 输出 方式 ， 否 则 就 会 出 现 错误 。 下 面 的 示例 
代码 是 使 用 Response.Redirect 方法 在 一 周 内 显示 不 同 的 网 页 ， 周 一 到 周 五 显示 workday.html， 
周 六 和 周 日 显示 offday.html。 代 码 如 下 : 


<$sQ@l1anguage=VBScTipts> 
<%Response.buffer=True®s> 
<html> 


x=weekday (date () ) 
select case zx 
case "1m, non, nan, man, nom 
pagename="workday.html" 

casenerse 

pagename="offday.html" 
end select 
response.redirect pagename 
%> 
</body> 
</html> 
运行 上 述 ASP 代码 后 ， 浏 览 器 中 将 根据 日 期 不 同 重 定向 到 不 同 的 网 页 workday.html 或 者 
offday.html 中 。 代 码 开始 已 经 把 缓冲 器 Buffer 设置 为 True 的 状态 。 


4.3.3 综合 实例 一 一 使 用 文件 名 显示 图 片 


网 页 需要 经 常 显示 图 片 。 使 用 HTML 语言 的 IMG 标记 可 以 在 网 页 中 显示 图 片 ， 也 可 以 使 
用 Repsonse 对 象 的 BinaryWrite() 方 法 显示 图 片 。 使 用 BinaryWrite() 显 示 图 片 , 可 以 隐藏 图 片 的 
路 径 ， 防 止 被 盗 链 。 本 实例 实现 了 利用 Response 对 象 显 示 图 片 的 方法 。 

直接 使 用 文件 名 显示 图 片 ， 可 以 借助 HTML 的 标记 <IMG>， 把 文件 路 径 ， 以 及 文件 名 赋 
给 IMG 的 属性 SRC 就 可 以 了 。 

下 面 是 使 用 IMG 显示 指定 文件 夹 下 所 有 图 片 的 例子 ， 实 现 流程 如 下 。 

(1) 获取 指定 目录 的 路 径 。 

(2) 判断 文件 路 径 是 否 存在 ， 不 存在 则 转 (6)。 

(3) 获取 当前 路 径 下 的 所 有 文件 。 

(4) 获取 当前 文件 的 扩展 名 。 

(5) 如 果 是 特定 文件 类 型 ， 则 显示 图 片 ， 否 则 转 (4)。 

(6) 结束 。 
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该 实例 的 代码 如 下 : 


<$ 
Path="img" 
Path=Server .MapPath (Path) 
Set fs=server.createObject ("Scripting.FileSystemobject") 
"判断 是 否 存在 当前 的 文件 夹 ， 存 在 则 返回 true 
if fs.FolderExists (Path) Then 
"获取 当前 文件 夹 对象 
Set objfolder=fs .GetFolder (Path) 
"获取 当前 文件 夹 下 的 文件 对 象 
Set Files=objfolder.Files 
"遍历 该 文件 夹 下 的 所 有 文件 
For each File in Files 
"获取 文件 的 扩展 名 
n=instrRev( File,".") 
extPath=Ucase (mid (File,n)) 
"文件 是 指定 的 图 像 文 件 则 显示 该 图 片 文 件 
IE extpath="” -BMP or extPath=":JPG" or extPath=".GIFE” Then 
Response.write "<img src='"&gFile.nameg"' width=60% ><BR>" 
End If 
Next 
End if 
%> 


该 例 枚 举 指 定 文件 夹 下 的 所 有 图 片 文件 (包括 BMP、JPG 和 GIF 格式 文件 ),。 运行 该 段 代码 ， 
结果 如 图 4-10 所 示 。 
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图 4-10 ”使 用 文件 名 显示 图 片 
4.4 小 结 


本 章 介 绍 了 Request 对 象 和 Response 对 象 。 这 两 个 对 象 是 ASP 中 非常 重要 的 内 置 对 象 。 
Request 对 象 可 以 在 网 页 间 传 递 参数 ， 以 及 获取 环境 变量 都 需要 使 用 该 对 象 。Response 对 象 可 
以 向 客户 端 输出 指定 的 数值 、 字 符 及 二 进 制 数据 ， 也 可 以 对 输出 进行 控制 。 本 章 的 重点 是 使 用 
Request 对 象 的 集合 获取 用 户 提交 的 数据 ， 以 及 Response 对 象 的 属性 和 输出 方法 。 
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本 章 介绍 ASP 的 另外 两 个 内 置 对 象 Session 和 Application。 Session 对 象 用 来 存储 特定 的 用 
户 会 话 信息 。Application 对 象 能 用 于 存储 和 接受 可 以 被 某 个 应 用 程序 的 所 有 用 户 共享 的 信息 。 
本 章 重点 介绍 Session 对 象 和 Application 对 象 的 属性 、 方 法 及 实例 。 


性 7 学 习 目 标 |ouecev。 


@ 掌握 Session 对 象 常用 的 属性 和 方法 。 
@ 掌握 对 Application 对 象 常用 的 属性 和 方法 。 


5.1 Session 对 象 


客户 端 用 户 访问 网 页 时 ， 服 务 器 会 为 用 户 分 配 一 个 Session 对 象 。Session 对 象 可 以 记录 客 
户 端 用 户 信 息 ， 储 存 客户 端 用 户 的 一 些 喜好 ， 记 录用 户 的 习惯 ， 记 录用 户 登 录 的 用 户 名 和 
密码 等 。 

在 使 用 Session 对 象 时 ， 需 要 注意 以 下 3 点 。 

(1) Session 对 象 仅 能 在 支持 Cookies 的 浏览 器 中 保留 。 如 果 客 户 端 浏览 器 不 支持 Cookies， 
Session 对 象 就 不 能 发 挥 作 用 。 

(2) Session 对 象 使 用 方便 ， 不 用 声明 就 可 以 使 用 。 

(3) Session 对 象 占用 服务 器 内 存 。Session 应 避免 包含 大 量 数据 的 对 象 ， 这 样 可 以 防止 服 


5.1.1 创建 和 获取 Session 对 象 变量 

Session 对 象 变量 的 声明 方式 和 普通 方式 相似 。 下 面 介绍 使 用 Session 对 象 保存 字符 、 数 值 、 
数组 及 对 象 的 方法 。 

1. Session 对 象 变量 声明 

Session 对 象 变量 声明 的 语法 格式 如 下 : 

Session (Var)=Value 


其 中 ，Var 为 变量 名 称 ; Value 为 变量 的 值 。 
下 面 的 代码 声明 了 两 个 Session 对 象 变量 : 
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< 村 

Session ("UserName")="ASP" 
Session ("PWD")="RSP" 

名 > 


读 取 Session 对 象 变量 值 可 以 使 用 下 面 的 方法 : 


<% 

Dim str 

str=Session ("UserName") 
Response.write str 

' 可 以 直接 输出 该 Session 对 象 的 值 
Response.write Session ("PWD") 
$%> 


2. 用 Session 对 象 存储 数组 


Session 对 象 不 但 可 以 保存 字符 和 数值 ， 还 可 以 保存 数组 。 下 面 的 例子 是 把 数组 保存 到 
Session 对 象 变量 中 。 代 码 如 下 : 


<html> 

<head> 

<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> 
<title> 新 建 网 页 1</title> 

</head> 

<body> 


< 

"定义 数组 RSPContent 并 赋值 

Dim ASPContent (4) 

RSPContent (0) ="ASP 大 全 目录 " 

ASPContent (1)="ASP 内 置 对 象 " 

ASPContent (2) ="ASPFSO 对 象 " 

ASPContent (3) ="ASPADO 对 象 " 

ASPContent (4) ="RSP 网 站 安全 " 

"把 ASPContent 数组 的 值 存在 Session 对 象 中 

Session ("ASP")=ASPContent 

"从 session 对 象 中 获取 存 有 的 数组 

strASP=Session ("ASP") 

' 遍 历数 组 中 的 所 有 元 素 并 输出 

for each str in strASP 
Response.write strg"<BR>" 

Next 

$%> 

</body> 

</html> 


运行 该 段 代码 ， 结 果 如 图 5-1 所 示 。 
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图 5-1 用 Session 对 象 存储 数组 的 运行 结果 
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3. 用 Session 对 象 保 存 对 象 
Session 对 象 也 可 以 保存 对 象 。 下 面 的 例子 是 把 对 象 保存 到 Session 对 象 中 。 代 码 如 下 : 


<html> 

<head> 

<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> 
<title> 新 建 网 页 1</title> 

</head> 

<body> 

<% 

"把 创建 的 对 象 实例 保存 在 Session 对 象 中 

set Session ("ObjConn")=Server.CreateObject ("scripting.filesystemobject") 
"把 保存 有 对 象 实例 的 Session 对象 取 出 并 赋 给 变量 obj 

set obj=Session ("ObjConn") 

"使 用 obj 打开 文件 txt .txt 

set objfile=obj.opentextfile (server.Mappath ("txt.txt"),1,true) 
"输出 文本 文件 的 内 容 

response.write objfile.readall 

$%> 

</body> 

</html> 


运行 该 段 代码 ， 结 果 如 图 5-2 所 示 。 
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(txt, txt”), 1 true) " 利 
response. write objfile. readall %> 
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图 5-2 用 Session 对 象 保存 对 象 的 运行 结果 
5.1.2 Session 对 象 的 属性 


Session 对 象 有 4 个 属性 ， 具 体 说 明 如 表 5-1 所 示 。 
表 5-1 Session 对 象 的 属性 

















参 数 说 明 
CodePage | 该 属性 代表 的 是 字符 集 ， 为 ASP 提供 一 个 特定 的 字符 映射 
LCD | 为 Asp 文件 设置 显示 的 格式 
SessionID | 获取 Session 的 标识 
TimeOnut 为 应 用 程序 的 Session 对 象 指定 超时 时 间 ， 单 位 为 分 钟 











NN 


加 
ED 
第 5 章 Session/Application 对 象 


1. 用 SessionlD 属性 


当 客 户 端 向 服务 器 请 求 某 个 页 面 时 ， 服 务 会 为 该 客户 端 生 成 一 个 Session 对 象 。 这 时 ， 服 
务 器 会 生成 一 个 全 局 唯一 的 值 , 表示 该 Session 对 象 。 服务 器 使 用 该 Session 标识 与 其 他 Session 
对 象 区 分 。 该 标识 可 以 通过 Session 对 象 的 SessionID 属性 获取 。 

使 用 下 面 的 方法 可 以 获取 Session 对 象 的 SessionID 属性 值 : 


<html> 

<head> 

<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> 
<title> 本 次 会 话 的 SessionID</title> 

</head> 

<body> 

本 次 会 话 的 SessionID 为 : 

< 要 

Response.write Session.SessionID 
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5-3 ”使 用 SessionlD 属性 的 运行 结果 
2. TimeOut 属性 


服务 器 建立 Session 后 ， 会 占用 一 定 的 系统 资源 。 长 时 间 保留 Session， 显 然 是 一 种 资源 的 
浪费 ， 对 用 户 来 说 也 是 非常 不 安全 的 事情 。 因 此 ， 有 必要 限制 Session 保留 时 间 。 

系统 默认 的 Session 保留 时 间 为 20 分 钟 。 如 果 在 20 分 钟 内 ， 客 户 端 用 户 没有 刷新 页 面 ， 
或 没有 再 打开 新 的 页 面 ， 服 务 器 就 会 终止 该 用 户 的 Session 对 象 。 

通过 Session 对 象 的 TimeOut 属性 可 以 设置 Session 对 象 的 保留 时 间 。 下 面 的 实例 是 获取 
Session 对 象 的 默认 保留 时 间 ， 并 设置 保留 时 间 为 一 小 时 。 代 码 如 下 : 

<html> 

<head> 

<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> 

<title> 本 次 会 话 </title> 

</head> 

<body> 

系统 默认 会 话 保留 时 间 为 : 

<$ 

"输出 系统 当前 的 会 话 保留 时 间 ， 以 分 钟 为 单位 


Response.write Session.timeout&" 分 钟 <BR>" 
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"设置 系统 当前 的 系统 会 话 保留 时 间 为 一 小 时 
Session.TimeOUt=60 
Response.write "系统 当前 会 话 保留 时 间 为 : "&Session -timeoutg" 分 钟 。" 
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图 5-4 设置 TimeOut 属性 的 运行 结果 
3. CodePage 属性 


不 同 地 区 的 用 户 可 能 使 用 不 同 的 语言 ， 不同 的 语言 和 区 域 使 用 不 同 字符 集 。 网 页 不 可 能 事 
先 设计 不 同 的 版 本 ， 以 适应 不 同 的 用 户 。Session 对 象 拥有 CodePage 属性 ， 该 属性 可 以 为 不 同 
的 ASP 页 面 指派 字符 映射 。CodePage 属性 为 一 个 无 符号 的 整数 ， 代 表 ASP 脚本 引擎 有 效 的 代 
码 页 。 代 码 页 可 以 包括 数字 、 标 点 符号 以 及 其 他 字母 的 字符 集 。 不 同 语言 和 地 区 可 以 使 用 不 同 
的 编码 文件 。 例 如 ， 对 于 简体 中 文 ，CodePage 的 属性 值 为 936， 对 于 日 文 ， 为 932， 对 于 美国 
英文 ， 为 1252。 

实例 代码 如 下 : 

<html> 

<head> 

<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> 

<title> 本 次 会 话 </title> 

</head> 

<body> 

系统 的 代码 页 为 : 


<% 
Response.write Session.CodePageg&"<BR>" 
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系统 的 代码 页 为 : 936 
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图 5-5 使 用 CodePage 属性 的 运行 结果 
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4.LCID 属性 


Session 对 象 的 LCID 属性 和 CodePage 属性 相似 。LCID 属性 依据 地 区 或 国家 设置 字符 的 
显示 格式 。 如 对 于 简体 中 文 ，LCID 为 2052; 对 于 繁体 中 文 ， 则 为 1028; 对 于 英语 (英国 )， 则 
为 1033。 下 面 的 代码 显示 简体 中 文 和 繁体 中 文 的 显示 格式 。 


<html> 

<head> 

<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> 
<title> 本 次 会 话 </title> 

</head> 

<body> 

< 要 

Session.LCID=2052 

' 输 出 当前 系统 的 LCID 的 值 ， 当 前 系统 为 简体 中 文 

Response.write "当前 系统 的 LCID 为 : "&Session.LCID&"<BR>" 
' 以 下 输出 系统 的 时 间 和 货币 格式 

Response.write "时 间 格 式 为 : "&now () &"<BR>" 
response.write "货币 格式 为 : "&CCur (12360.12) &"<BR>" 
Response.write "<BR>" 

"设置 LCID 为 繁体 中 文 

Session.LCID=1028 

' 输 出 繁体 中 文 的 时 间 和 货币 的 显示 格式 。 

response.write "繁体 中 文 的 LCID 为 : "&Session.LCID&"<BR>" 
Response.write "时 间 格 式 为 : "gnow () &"<BR>" 
response.write "货币 格式 为 : "&CCur (12360.12) &"<BR>" 





格式 。 









繁体 中 文 的 LCID 为 ，1 
用 ‘8/25 下 午 02:41;21 
b 式 为 : 12360. 12 
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5-6 设置 LCID 属性 的 运行 结果 


5.1.3 Session 对 象 的 方法 


Session 对 象 仅 有 一 个 方法 : Abandon 方法 。Abandon 方法 可 以 删除 Session 对 象 中 所 有 的 
值 ， 并 终止 当前 用 户 的 Session， 释 放 Session 对 象 占有 的 资源 。 语 法 格式 如 下 : 


Session.Abandon 


m/e 





站 开发 (第 2 版 ) 


但 是 调用 Abandon 方法 后 ，Session 对 象 并 不 是 立即 被 删除 。 只 有 当前 页 面 中 的 所 有 脚本 
执行 完毕 后 ，Session 对 象 才 会 被 删除 。 虽 然 调用 Abandon 方法 的 网 页 可 以 正常 访问 Session 对 
象 值 ， 但 在 该 页 之 后 的 其 他 页 ， 都 不 能 访问 。 本 例 可 以 删除 Session 对 象 。 该 例 有 两 个 文件 ， 
分 别 是 AbandonSession.asp 和 ReDisplay.asp。AbandonSession.asp 文件 用 来 调用 Abandon 方法 
删除 Session 对 象 ; ReDisplay.asp 文件 用 来 显示 Session 对 象 的 值 。 

AbandonSession asp 文件 的 代码 如 下 : 


<html> 

<head> 

<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> 
<title> 新 建 网 页 1</title> 

</head> 

<body> 

< 要 

' 设 置 session 对 象 的 值 

Session ("Name")="RSP" 

"调用 Abandon 方法 删除 session 对 象 中 的 所 有 值 

Session.Abandon 

' 输 出 Session 对 象 的 值 

Response.write "Session('Name' ) 的 值 为 : "&Session ("Name") 
$%> 

<a href="ReDisplay.asp">ReDisplay 文件 </a> 

</body> 

</html> 


运行 该 段 代码 ,结果 如 图 5-7 所 示 。 这 说 明 调 用 Abandon 方法 之 后 ， 该 文件 的 其 他 脚本 仍 
然 被 执行 。 
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图 5-7 运行 AbandonSession.asp 文 件 
ReDisplay.asp 文件 的 代码 如 下 : 


<html> 

<head> 

<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> 
<title> 新 建 网 页 1</title> 

</head> 

<body> 

< 要 

Response.write "Session ('Name') 的 值 为 : "&Session ("Name") 
%> 

</body> 

</html> 


“NNN 
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运行 该 段 代码 ， 结 果 如 图 5-8 所 示 。 
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图 5-8 运行 ReDisplay.asp 文 件 
5.1.4 ”Session 对 象 的 事件 


Session 对 象 具有 两 个 事件 : Session OnEnd 和 Session OnStart。 这 两 个 事件 的 作用 如 表 5-2 
所 示 。 


表 5-2 Session 对 象 的 事件 


Session_ OnStart 在 Session 对 象 启动 时 触发 该 事件 
Session OnEnd 在 Session 对 象 终止 时 触发 该 事件 


Session 对 象 的 两 个 事件 必须 保存 在 Globalasa 文件 中 。 首先 介绍 一 下 Global.asa 文件 的 





1. 文件 Global.asa 的 结构 


Globalasa 文件 是 一 个 可 选 文件 。 该 文件 可 以 包含 指定 事件 脚本 ， 也 可 以 声明 具有 会 话 和 
应 用 程序 作用 域 的 对 象 。 任 何 ASP 应 用 程序 都 可 以 包含 Global.asa 文件 。 每 个 应 用 程序 只 能 有 
一 个 Globalasa 文件 ， 并 且 存 储 在 根 目 录 下 面 。 

Globalasa 文件 可 以 包含 以 下 的 内 容 。 

(1) Application 的 对 象 事件 。 

(2) Session 的 对 象 事件 。 

(3) 声明 对 象 实例 。 

(4) 类 库 声 明 。 

Globalasa 文件 主要 在 以 下 情况 下 被 调用 。 

(1) Application 对 象 的 事件 被 触发 。 

(2) Session 对 象 的 事件 被 触发 。 

(3) 在 Global.asa 文件 里 被 实例 化 的 对 象 被 引用 。 

在 Global.asa 文件 中 ， 声 明 对 象 实例 需要 使 用 <OBJECT> 标 记 。 除 此 之 外 的 代码 ， 必 须 使 
用 标记 <Script> 和 </Script> 来 界定 ， 不 能 使 用 “<%” 和 “%>” 标 记 。 在 <Scrip 信 和 </Scrip 人 > 标 


记 之 间 ， 可 以 使 用 服务 器 支持 的 任何 脚本 语言 书写 。 
M/E 
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Globalasa 文件 的 基本 结构 如 下 : 


<Object RunAt="Server" Scope={Application|Session} ID=Identifier 
{PROGID="progID"|CLASSID="ClassID"}></OBJECT> 
<Script Language="VBScript" RunAt="Server"> 
Sub Application Onstart 
， Application Onstart 事件 的 处 理 代码 
End Sub 
Sub Application OnEnd 
， Application OnEnd 事件 的 处 理 代码 
End Sub 
Sub Session Onstart 
"Session onstart 事件 的 处 理 代码 
End Sub 
Sub Session OnEnd 
， Session_OnEnd 事件 的 处 理 代码 
End Sub 
</Script> 


结构 说 明 如 下 。 

(1) 使 用 <Objec 忆 和 </Object 忆 标记 声明 对 象 实例 。 声 明 对 象 实例 只 能 在 标记 <Scrip 信 和 
</Scrip 己 之 外 进行 ， 不 能 在 标记 <Scrip 忆 和 </Scrip 忆 之 间 声 明 。 

(2) <Script Language="VBScript" RunAt="Server">: 表示 所 用 语言 为 VBScript， 并 且 脚 本 
运行 在 服务 器 端 。 

(3) Sub Application OnStart...End Sub: 表示 Application OnStart 事件 所 要 执行 的 代码 。 

(4) Sub Application OnEnd...End Sub: 表示 Application OnEnd 事件 所 要 执行 的 代码 。 

(5) Sub Session_ OnStart...End Sub: 表示 Session _OnStart 事件 所 要 执行 的 代码 。 

(6) Sub Session_OnEnd...End Sub: 表示 Session _OnEnd 事件 所 要 执行 的 代码 。 


2. Session 对 象 的 事件 


Session_OnStart 事件 主要 用 于 初始 化 变量 、 创 建 对 象 和 运行 一 些 关键 代码 。 该 事件 必须 包 
含 在 Global.asa 文件 中 。 该 事件 的 语法 格式 如 下 : 
<Script Language=VBScript RunAt=Server> 


Sub Session Onstart 


"session Onstart 事件 的 处 理 代码 
End Sub 
</Script> 


代码 说 明 如 下 。 

(1) 在 ASP 内 置 组 件 中 , 只 有 Application、Server 和 Session 对 象 , 可 以 在 Session OnStart 
事件 脚本 中 使 用 。 

(2) Server 对 象 的 MapPath 方法 在 Session_ OnStart 事件 中 不 能 使 用 。 

Session OnEnd 事件 的 语法 格式 如 下 : 


<Script Language=VBScript RunAt=Server> 
Sub Session OnEnd 


， Session_onEnd 事件 的 处 理 代码 


NN 
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End Sub 
</Script> 


代码 说 明 : 在 Session_OnEnd 事件 中 , 可 以 使 用 ASP 的 内 置 对 象 Response、 Request、 Server 
和 Session 等 内 置 对 象 。 

下 面 是 一 个 Global.asa 文件 代码 。 该 文件 定义 了 Session _ OnStart 和 Session OnEnd 事件 。 
有 具体 代码 如 下 : 


<OBJECT RUNAT=Server SCOPE=Session ID=fso 
PROGID="Scripting.FileSystemobject"></OBJECT> 
<OBJECT RUNAT=Server SCOPE=session ID=ado PROGID="ADODB.Connection"> 
</OBJECT> 
<Script Language="VBScript" RunAt="Server"> 
Sub Session Onstart 
Session("Path")=Server.MapPath("/9/9.1.3.asp") 
End Sub 
Sub Session OnEnd 
Session ("Path")="" 
End Sub 
</Script> 


代码 说 明 如 下 。 

(1) 该 文件 声明 了 两 个 对 象 : ADO 对 象 实例 和 FSO 对 象 实例 。ADO 对 象 实例 用 来 连接 数 
据 库 ，FSO 对 象 实例 用 于 操作 文件 。 

(2) 在 Session _OnStart 事件 中 ， 声 明了 Session("Path") 变 量 ， 并 向 该 变量 赋值 。 

(3) 在 Session OnEnd 事件 中 ， 清 空 Session("Path") 变 量 的 值 。 


3. 启动 Session 对 象 的 事件 
下 面 是 显示 在 Session_OnStart 事件 声明 的 变量 的 例子 。 代 码 如 下 : 


<html> 

<head> 

<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> 

<title> 新 建 网 页 1</title> 

</head> 

<body> 

< 名 

Response.write Session ("Path")&"<BR>" 

"下 面 循环 显示 所 有 的 对 象 

For Each ob]j in Session.Staticobjects 
If IsObject (Session.Staticobjects (obj)) Then 

Response .Write "OBJECT 元 素 ID 为 : "&obj &"<br>" 

End If 

Next 

务 > 

</body> 

</html> 


运行 该 段 代码 ， 结 果 如 图 5-9 所 示 。 
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5-9 ”启动 Session 对 象 的 事件 的 运行 结果 
5.1.5 _ Session 应 用 实例 一 一 购物 车 


使 用 Session 对 象 可 以 实现 购物 车 的 功能 。 下 面 的 例子 使 用 Session 对 象 , 实现 了 一 个 简单 
的 购物 车 功能 ， 如 图 5-10 所 示 。 
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图 5-10 购物 车 实例 的 运行 界面 


该 实例 界面 包含 4 条 商品 记录 。 网 页 为 每 条 商品 提供 了 一 个 文本 框 和 一 个 提交 按钮 。 文 本 
框 用 来 记录 购买 商品 的 数量 。 文 本 框 和 提交 按钮 在 一 个 表单 中 ， 这样， 可 以 把 订购 的 数量 提交 
到 相应 的 文件 。 代 码 如 下 : 


<div align="center"> 
<table width="53%" id="tablel"> 

二 人 > 
<td width="181"> 商 品名 称 </td> 
<td width="103"> 价 格 </td> 
<td width="67"> 数 量 </td> 
<td> 操 作 </td> 

</tr> 

<tr> 
<td width="181"> 液 晶 显示 器 </td> 
<td>1800</td> 
<form method="post" action="Insert.asp?id=1"> 
<td width="67"><input type=text name="Textl" size="8"></td> 
<td width="79"><input type=submit name=" 提 交 "></td> 
</form> 

</tr> 

“Er 
<tqd width="181"> 键 盘 </td> 
<td>120</td> 
<form method="post" action="Insert.asp?id=2"> 


NN 
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<td width="67"><input type=text name="Text2" size="8"></td> 
<td width="79"><input type=submit name=" 提 交 "></td> 
</form> 
</tr> 
4 
<td width="181">1G 优盘 </td> 
<td>170</td> 
<form method="post" action="Insert.asp?id=3"> 
<td width="67"><input type=text name="Text3" size="8"></td> 
<td width="79"><input type=submit name=" 提 交 "></td> 
</form> 
< 人 > 
<tr> 
<td width="181"> 光 电 鼠 标 </td> 
<td>130</td> 
<form method="post" action="Insert.asp?id=4"> 
<td width="67"><input type=text name="Text4" size="8"></td> 
<td width="79"><input type=submit name=" 提 交 "></td> 
</form> 
</tr> 
</table> 
</div> 
<p align="center"><a href="GWC.asp"> 查 询 购物 车 </a></p> 


本 例 定义 了 两 个 Session 变量 数组 。 这 两 个 数组 保存 用 户 购买 的 商品 类 型 和 商品 总 价 。 代 
码 如 下 : 


<% 

Session ("Count")=0 ' 设 置 购买 商品 的 次 数 为 0 

Dim GWC (10) "声明 数组 

"对 数组 的 每 个 元 素 赋值 

For i=0 to 10 

GWC (i)=0 

Next 

Session ("GWCH") =GWC "把 数组 保存 在 Session 变量 中 
Session ("GWCHTotal")=GWC 

$%> 

下 面 的 代码 把 用 户 购买 的 商品 序号 和 总 价 存 入 Session 变量 中 : 
< 对 

ID=Trim(Request.QueryString("ID") ) "获取 用 户 购买 的 商品 序号 


"判断 商品 序号 是 否 为 空 ， 为 空 则 停止 处 理 
Tf TD "" Then 
Response .write "没有 选择 商品 ! " 
Response.end 
End If 
ID=Cint (ID) ' 把 商品 序号 转换 成 数值 
"获取 用 户 购买 数量 
Num=Trim (Request .Form("Text"&ID)) 
"判断 用 户 购买 数量 是 否 正确 ， 不 正确 则 停止 处 理 


If Nm="" Then 


/a 
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Response.write "没有 选择 商品 ! " 
Response -end 

End If 

Num=Cint (Num) 

Dim Total "保存 总 价 

"计算 总 价 

Total=0 

IE ID=T Then 
Total=Total+Num*1800 

ElselIf ID=2 Then 
Total=Total+Num*120 

ELlself ID=3 Then 
Total=Total+Num*170 

ElseIf ID=4 Then 
Total=Total+Num*130 

End If 

"判断 总 价 是 否 为 0， 为 0 则 停止 处 理 

If Total=0 Then 
Response.write "没有 选择 商品 ! " 
Response.end 


End If 

Count=Session ("Count") ' 获 取 购 买 的 商品 次 数 

GWC=Session ("GWCH") "获取 购买 的 商品 序号 

GWCTotal=Session ("GWCHTotal") "获取 购买 的 商品 价格 

GWC (Count+1)=ID "添加 新 的 商品 序号 

GWCTotal (Count+1)=Total ' 添 加 新 购买 的 商品 价格 

Session ("GWC")=GWC "保存 新 购买 的 商品 

Session ("GWCTotal")=GWCTotal ' 保 存 新 购买 的 商品 价格 

务 > 

本 例 提供 了 查看 购物 车 内 的 商品 功能 。 购 物 车 内 的 商品 保存 在 Session 数组 中 。 查 看 购物 
车 的 代码 如 下 : 

< 多 

Num=Cint (Num) 

Dim Total 

Total=0 

"下面 获取 购买 的 商品 序号 和 价格 


Count=Session ("Count") 
GWC=Session ("GWCH") 
GWCHTotal=Session ("GWCHTotal") 
"循环 显示 所 有 的 购物 车 信息 
for i=0 To Count 
ID=GWC (i) 
Total=GWCHTotal (i) 
If ID=1 Then 
str=" 液 晶 显示 器 。 单 价 为 1800。 总 价 为 "&Total 
了 1LseIfE ID=2 Then 
str=" 键 盘 。 单 价 为 120。 总 价 为 "&gTotal 
ElselIf ID=3 Then 
str="1G 优盘 。 单 价 为 170。 总 价 为 "&Total 
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ElselIf ID=4 Then 
Str=" 光 电 鼠 标 。 单 价 为 130。 总 价 为 "&Total 
End If 


5.1.6 ”Session 应 用 实例 一 一 记录 用 户 在 网 站 上 停留 的 时 间 


使 用 Session 对 象 可 以 记录 用 户 在 网 站 的 停留 时 间 。 下面 介绍 利用 Session 对 象 统计 网 站 停 
留 时 间 的 例子 。 

记录 用 户 停留 时 间 的 实现 流程 如 下 。 

(1) 在 Session OnStart 的 事件 中 ， 声 明 Session 对 象 的 变量 并 赋 初 值 。 

(2) 在 Session OnEnd 的 事件 中 ， 计 算 用 户 本 次 停留 时 间 。 

(3) 在 Session OnEnd 的 事件 中 ， 写 入 指定 的 文件 。 

(4) 结束 。 

下 面 是 该 例子 的 具体 实现 方法 。 

用 户 在 线 时 , Session 对 象 的 变量 记录 用 户 的 在 线 时 间 ; 如 果 用 户 离线 超过 指定 时 间 , Session 
对 象 的 变量 就 会 被 清除 。 因 此 ， 需 要 使 用 文件 记录 Session 对 象 的 变量 的 值 。 本 例子 使 用 文件 
starttime.txt 记录 Session 对 象 的 变量 的 值 。 

该 事件 的 具体 实现 代码 如 下 : 


<Script Language="VBScript" RunAt="Server"> 
Sub Session Onstart 
"使 用 Session 对 象 的 变量 记录 用 户 登录 网 站 时 间 
Session ("StartTime")=Now() 
"获取 记录 用 户 停留 时 间 的 文本 文件 的 物理 路 径 
FilePath=Server.MapPath ("startTime.txt") 
' 检 查 是 否 存在 该 文件 ， 不 存在 该 文件 则 建立 该 文件 ， 存 在 则 打开 文件 
IE fso.FileExists (FilePath) Then 
Set fin=fso.OpenTextFile (FilePath, 1) 
' 判 断 文 件 是 否 为 空 文件 ， 为 空 文件 则 设置 停留 时 间 为 0 
' 不 为 空 文件 ， 则 读 取 该 文件 中 的 值 
If not fin.AtEndofstream Then 
str=Trim(fin.readline) 
nTime=Cint (str) 
Else 
nTime=0 
End if 
Session("nTime")=nTime 
fin.close 
Else 





"创建 文本 文件 

set fin=fso.CreateTextFile (FilePath) 
" 写 入 用 户 停留 时 间 。 当 前 停留 时 间 为 0 
fin.writeLine "0" 

fin.close 

Session ("nTime")=0 


/a 
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End If 
End sub 
</Sscript> 


用 户 在 指定 时 间 内 没有 动作 ， 或 调用 Abandon() 方 法 ， 都 会 触发 Session OnEnd 事件 。 触 
发 Session OnEnd 事件 后 ， 需 要 记录 当前 用 户 的 停留 时 间 。 
该 事件 的 具体 实现 代码 如 下 : 


<Script Language="VBScript" RunAt="Server"> 

Sub Session OnEnd 
"获取 Session 对 象 的 变量 StartTime 的 值 
startTime=Session ("startTime") 
"计算 用 户 的 停留 时 间 ， 停 留 时 间 为 用 户 登 录 时 间 到 当前 时 间 的 间隔 时 间 
nTime=DateDiff("s",Now(),startTime) 
Session("nTime")=Session("nTime")+nTime 
"下 面 是 把 用 户 停留 时 间 保 存 到 指定 的 文件 
FilePath=Server.MapPath ("startTime.txt") 
Set fin=fso.OpenTextFile (FilePath) 
fin.writeLine nTime 
fin.close 

End Sub 

</Script> 


global.asa 文件 声明 FileSystemObject 对 象 的 实例 。 声 明 对 象 实例 的 代码 如 下 : 


<OBJECT RUNAT=Server SCOPE=Session ID=fso 
PROGID="Scripting.FileSystemOobject"> 
</OBJECT> 





5.2 Application 对 象 


在 Web 应 用 程序 中 ， 同 一 个 文件 可 以 通过 变量 进行 数据 交换 。 变 量 分 为 过 程 级 变量 和 脚 
本 级 变量 。 过 程 级 变量 只 能 在 局 部 使 用 ， 在 该 变量 的 使 用 范围 之 外 ， 就 会 被 释放 掉 ， 不 再 起 作 
用 ; 脚本 级 变量 是 在 整个 脚本 文件 内 使 用 。 

网 站 内 不 同 网 页 的 脚本 需要 交换 数据 ， 可 以 通过 Cookies 或 者 Session 对 象 进行 交换 。 如 
果 网 页 记录 不 同 客户 端 用 户 的 数据 ， 就 要 借助 于 Application 对 象 。Application 和 Session 对 象 
具有 相似 的 作用 ， 但 也 有 一 定 的 区 别 ， 有 具体 如 下 。 

(1) 作用 范围 不 同 。 

Application 对 象 记录 不 同 用 户 信息 ， 范 围 为 所 有 的 用 户 。 而 Session 对 象 只 能 记录 单个 用 
户 信息 ， 该 用 户 信息 不 能 被 其 他 用 户 获取 ， 范 围 为 单一 用 户 。 

(2) 使 用 环境 要 求 不 同 。 

Session 对 象 需要 在 支持 Cookies 的 浏览 器 中 使 用 。 如 果 客 户 端 浏览 器 不 支持 Cookies， 则 
Session 对 象 也 不 能 使 用 ; Application 对 象 不 需要 Cookies 的 支持 , 无 论 客户 端 浏览 器 是 否 支持 
Cookies，Application 对 象 都 可 以 使 用 。 

通过 上 述 比 较 可 以 看 出 ，Session 对 象 和 Application 对 象 一 样 ， 存 储 的 都 是 ASP 网 页 可 以 
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共同 访问 的 内 容 。 但 Application 对 象 存储 的 信息 是 所 有 的 用 户 、 所 有 的 ASP 网 页 共有 的 信息 。 
而 Session 对 象 存储 的 是 特定 某 个 用 户 的 所 有 ASP 网 页 共用 的 信息 。 所 有 的 用 户 可 以 共用 一 个 
Application 对 象 ， 但 每 位 用 户 都 有 自己 的 Session 对 象 。 两 者 的 比较 如 图 5-11 所 示 。 


汪 一 Session 对 和 象 此 
客户 机 1 客户 机 1 \ 

TO— Session 对 象 opicatd 
< 和 <s 对 象 ” 履 


服务 器 / 
客户 机 2 / 服务 器 
客户 机 2 / 
此 > Session 对 象 ( 4 
客户 机 n 客户 机 


图 5-11 Session 对 象 和 Application 对 象 的 比较 

Application 对 象 ， 可 以 在 不 同 客户 端 浏览 器 之 间 提供 共享 的 信息 。 无 论 多 少 个 客户 端 浏览 
网 页 ， 都 可 以 访问 Application 对 象 保存 的 数据 。Application 可 以 看 作 是 应 用 程序 级 的 对 象 ， 可 
以 在 所 有 用 户 间 共 享 信息 。 

相同 的 虚拟 目录 及 其 子 目 录 下 的 所 有 ASP 文件 ， 组 成 了 Web 应 用 程序 。Application 对 象 
默认 的 生命 周期 ， 从 Web 应 用 程序 运行 时 开始 ， 至 结束 时 为 止 。 整 个 Web 应 用 程序 期 间 ， 所 
有 用 户 都 可 以 访问 Application 对 象 。 根 据 Application 对 象 的 这 个 特性 ， 可 以 有 以 下 的 应 用 。 

(1) 在 用 户 间 共享 数据 。 利 用 这 个 特点 ， 可 以 记录 网 站 的 访问 人 数 、 记 录 广 告 的 访问 次 数 
和 在 聊天 室内 进行 用 户 通 信 。 

(2) 可 以 共享 一 个 对 象 的 实例 。 

(3) 同一 个 网 站 可 以 有 多 个 Application 对 象 。 

(4) 同一 个 服务 器 的 不 同 网 站 ， 可 以 创建 不 同 的 Application 对 象 。 

Application 对 象 成 员 包 括 : Application 对 象 的 集合 、 方 法 和 事件 ， 如 表 5-3 所 示 。 


表 5-3 Application 对 象 的 集合 










Contents 


所 有 的 不 是 由 <object> 标 记 声 明 变量 和 对 象 的 集合 
所 有 的 用 <object> 标 记 声明 的 对 象 








StaticObjects 








Application 对 象 有 两 个 方法 : Lock 和 UnLock， 如 表 5-4 所 示 。 


表 5-4 Application 对 象 的 方法 
方法 说 明 
Lock | 禁止 其 他 客户 修改 Application 对 象 的 属性 


UnLock 允许 其 他 客户 修改 Application 对 象 的 属性 


Application 对 象 有 两 个 事件 : Application OnStart 和 Application OnEnd， 如 表 5-5 所 示 。 
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表 5-5 Application 对 象 的 事件 






事 件 
Application OnStart 
Application OnEnd 









说 明 
在 Application 对 象 开始 运行 的 时 候 被 触发 该 事件 
在 整个 Application 对 象 结束 时 触发 该 事件 


5.2.1 创建 Application 对 象 


Application 对 象 提 供 多 个 客户 端 用 户 之 间 共 享 信息 的 机 制 ， 每 个 客户 端 用 户 都 可 以 访问 
Application 对 象 中 保存 的 数据 , Application 对 象 并 没有 内 置 的 属性 , 但 是 创建 Application 对 象 ， 
可 以 作为 Application 对 象 的 属性 看 待 。 创 建 Application 对 象 的 方法 有 以 下 两 种 。 

(1) 对 于 非 对 象 变量 ， 创 建 Application 对 象 的 语法 格式 如 下 : 

Application (var)=Value 


参数 说 明 如 下 。 

@@ var 为 Application 对 象 的 属性 名 称 。 

@ Value 为 var 的 值 。Value 可 以 为 字符 串 、 数 值 和 布尔 型 值 ， 也 可 以 为 数组 。 
(2) 对 于 对 象 变量 ， 创 建 Application 对 象 的 语法 格式 如 下 : 


Set Application (ObjName)=Obj 


参数 说 明 如 下 。 

GD ObjName 为 Application 对 象 属性 的 名 称 。 

@@ ”0bj 为 对 象 实例 的 名 称 。 

下 面 是 创建 Application 对 象 的 例子 。 代 码 如 下 : 

< 多 

"在 Application 对 象 中 存储 字符 串 和 数值 

Application ("BookName")="ASP" 

Application ("Counter")=2000 

' 在 Application 对 象 存储 ADODB 对 象 

Set Application ("ObjConn")=Server.CreateObject ("ADODB.Connection") 
Dim Book(10) 

Application ("Book")=Book “' 在 Application 对 象 中 存储 数组 














%> 

虽然 Application 对 象 可 以 保存 对 象 , 但 是 不 能 保存 ASP 内 置 对 象 。 下 面 的 例子 是 错误 的 。 
代码 如 下 : 

< 


' 下 面 在 Application 对 象 中 存储 ASP 内 置 对 象 是 错误 的 
Set Application ("ObjSer")=Server 

Set Application ("ObjSession")=Session 

Set Application ("ObjRequest")=Request 

Set Application ("ObjResponse")=Response 

Set Application ("ObjApplication")=Application 
%> 
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运行 该 段 代 码 ， 会 出 现下 面 的 错误 提示 : 
Application 对 象 错误 'ASP 0180 : 80004005"' 
不 允许 的 对 象 使 用 方式 


/10/application.asp, 行 5 
不 能 在 Application 对 象 中 存储 固有 对 象 


5.2.2 读 取 Application 对 象 
创建 Application 对 象 之 后 ， 可 以 使 用 下 面 的 方式 读 取 Application 对 象 的 值 : 


Var=Application (var) 


其 中 ，Var 为 变量 的 名 称 ， 并 创建 了 Application 对 象 的 属性 名 称 。 
下 面 的 例子 是 创建 并 获取 Application 对 象 的 值 。 代 码 如 下 : 


< 多 

Application ("BookName")="RSP" 

Application ("Counter")=2000 

Dim str 

"获取 Application 对 象 并 赋 给 str 变量 
str=Application ("BookName") 

Response.write strg"<BR>" 

' 可 以 直接 输出 该 Application 对 象 的 值 
Response.write Application ("BookName") &"<BR>" 
Response.write Application ("Counter ")&"<BR>" 
和 > 


获取 Application 对 象 存储 的 值 ， 可 以 使 用 下 面 的 方式 : 


<% 
"在 Application 对 象 中 存储 RDODB 对 象 
Set Application ("ObjConn")=Server.CreateObject ("ADODB.Connection") 
"把 Application 对 象 赋 给 变量 Conn 
Set Conn=Application ("ObjConn") 
"引用 conn 对 象 ， 并 给 conn 对 象 的 属性 赋值 
Conn.Connectionstring="Provider=Microsoft.Jet.OLEDB.4.0;"& 
"Data Source="&Server.MapPath("../User.mdb") 
"直接 引用 Application 对 象 中 存储 的 对 象 并 赋值 
Application ("ObjConn") .Connectionstring="Provider=Microsoft.Jet .OLEDB.4.0;"& 
"Data Source="&Server.MapPath("../User.mdb") 


务 > 

如 果 Application 对 象 存储 的 是 数组 ， 可 以 使 用 下 面 的 方式 获取 和 修改 数组 的 值 : 
<% 

' 下 面 定义 数组 并 赋值 

Dim Book (4) 


Book (0)="ASP 概述 " 

Book (1)="Response 概述 " 
Book (2)="Request 概述 " 
Book (3)="Application 概述 " 
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Book (4)="Server 概述 " 

"在 Application 对 象 中 存储 数组 
Application ("Book")=Book 
' 引 用 数组 并 赋 给 BookArray 变量 
BookArray=Application ("Book") 
Response.write "下 面 是 Application 对 象 的 数组 值 <BR>" 

' 输 出 BookArray 变量 中 所 有 的 值 
For each arr in BookArray 

Response.write arrg"<BR>" 
Next 

"修改 数组 的 值 
BookArray (1)="Cookies 对 象 " 
BookArray (2)="Session 对 象 " 

"把 修改 后 的 数组 存储 在 Application 对 象 中 
Application ("Book")=BookArray 
Response.write "下 面 是 修改 后 的 Application 对 象 的 数组 值 <BR>" 

' 输 出 修改 后 的 Application 对 象 中 的 数组 值 
BookArray=Application ("Book") 

For each arr in BookArray 

Response.write arrg"<BR>" 

Next 


运行 该 段 代码 ， 结 果 如 图 5-12 所 示 。 
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图 5-12 显示 Application 对 象 的 属性 值 
5.2.3 在 文件 Global.asa 中 使 用 标记 <OBJECT> 声 明 对 象 


在 Globalasa 文件 中 ， 使 用 <OBJECT> 标 记 可 以 声明 带 有 会 话 或 者 应 用 程序 作用 域 的 对 象 
实例 。 在 Globalasa 中 ， 声 明 对 象 实例 的 语法 格式 如 下 : 


<OBJECT RUNAT=Server SCOPE={Application|Session} ID=Identifier 

{PROGID="progID"|CLASSID="ClassID"}></OBJECT> 

语法 格式 说 明 如 下 。 

(1) <OBJECT> 标 记 用 来 声明 对 象 实例 。 

(2) “RUNAT=Server” 是 必需 的 ， 且 RUNAT 的 值 只 能 是 Server， 表 示 在 服务 器 上 声明 
对 象 。 
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(3) SCOPE 用 来 指定 对 象 的 作用 域 。 该 值 常 被 设置 为 Application 和 Session。 

(4) Identifier 表示 对 象 实例 化 的 名 称 。 

(5) PROGID 表示 与 类 相关 的 标识 ， 如 ADODB.Connection。 

(6) ClassID 用 来 指定 COM 对 象 的 唯一 标识 。 如 ，ADODB.Connection 对 象 的 ClassID 
Clsid:8AD3067A-B3FC-11CF-A560-00A0C9081C21 声明 数据 库 连 接 对 象 。 

下 面 是 使 用 <OBJECT> 标 记 声 明 对 象 实例 的 例子 。 具 体 代码 如 下 : 

< 各 

<OBJECT RUNAT=Server SCOPE=Application ID=Conn PROGID="ADODB.Connection"> 

</OBJECT> 

SS 

Global.asa 文件 定义 了 对 象 实例 之 后 ， 其 他 Web 页 就 可 以 使 用 该 对 象 实例 。 下 面 是 调用 
Global.asa 文件 定义 的 对 象 Conn 的 例子 。 具 体 代码 如 下 : 


< 

Conn.Connectionstring="Provider=Microsoft.Jet.OLEDB.4.0;"& 
"Data Source="g&Server.MapPath("../User.mdb") 

务 > 


在 Globalasa 文件 中 ，<OBJECT> 标 记 可 以 声明 的 对 象 实例 。 这 些 对 象 实例 存储 在 
Application 对 象 的 StaticContents 集合 中 。 而 使 用 非 <OBJECT> 标 记 声 明 的 变量 或 者 对 象 实例 ， 
保存 在 Application 对 象 的 Contents 集合 中 。 


5.2.4 ”使 用 集合 创建 和 读 取 Application 对 象 


Application 对 象 有 两 个 集合 : Contents 和 StaticObjects， 使 用 这 两 个 集合 可 以 创建 和 读 取 
Application 对 象 。 

1. Contents 集合 

Contents 集合 包含 未 用 <Object> 标 记 声明 的 变量 。Contents 集合 的 语法 格式 如 下 : 

Application.Contents (key) 

其 中 ，key 为 Application 对 象 中 属性 的 名 称 。 

下 面 是 创建 Application 对 象 的 方法 ， 这 两 种 方法 是 等 效 的 。 代 码 如 下 : 


< 

Application ("Book")="ASP 大 全 " 
Application.Contents ("Book")="ASP 大 全 " 
%> 





创建 新 的 Application 属性 ， 就 是 在 Contents 集合 中 添加 一 项 内 容 。 通 过 Contents 集合 获 
取 Application 对 象 的 属性 值 。 下 面 是 读 取 Application 对 象 属性 值 的 两 种 方法 ， 变 量 str 和 strl 
的 值 是 一 样 的 。 代 码 如 下 : 

<% 


Dim str,strl 
str=Application ("Book") 
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strl=Application.Contents ("Book") 
名 > 


如 果 获 取 所 有 Application 对 象 的 属性 值 ， 可 以 使 用 For Each...Next 遍历 Contents 集合 。 


Contents 集合 的 每 一 项 可 能 是 普通 的 变量 、 数 组 或 者 一 个 对 象 , 不 同类 型 的 值 需 要 不 同 的 处 理 。 





因 











此 ， 在 遍历 的 时 候 需 要 对 每 项 都 进行 类 别 检 查 。 具 体 代码 如 下 : 


< 要 
"循环 遍历 contents 集合 中 的 每 一 项 
for each i in Application.Contents 
"i 中 保存 的 属性 的 名 称 ，item 为 变量 的 值 、 数 组 或 者 对 象 
item=Application.Contents (i) 
"判断 当前 项 是 否 是 对 象 ， 如 果 是 则 显示 对 象 
If IsObject (Item) Then 
Response.write ig" 是 一 个 对 象 :"&itemg"。<BR>" 
ElseIf IsArray(item) Then 
"显示 数组 的 名 称 和 元 素 个 数 
Response.write ig&" 是 一 个 数组 ， 元 素 个 数 为 : "&Ubound (item) &"。 值 分 别 为 : <BR>" 
"遍历 数组 中 的 每 一 项 并 输出 每 项 的 值 
For j=0 To Ubound (Item) 
Response.write "gnbsp; "&item(j)&"<BR>" 
next 
Else 
"当前 项 是 普通 的 变量 ， 显 示 名 称 和 其 值 
Response.write ig" 的 值 是 : <BR>" 
End If 
Next 
%> 


运行 该 段 代码 ， 结 果 如 图 5-13 所 示 。 
如 果 删 除 Contents 集合 中 某 个 元 素 ， 可 以 使 用 Contents 集合 的 Remove() 方 法 。 下 面 的 例 


子 显示 Contents 集合 所 有 元 素 ， 并 删除 例子 。 该 例子 的 界面 如 图 5-14 所 示 。 
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图 5-13 读 取 并 显示 Application 对 象 的 属性 值 5-14 ”删除 Application 对 象 的 属性 值 


下 拉 列 表 框 显示 Contents 集合 所 有 的 元 素 。 单 击 下拉 列 表 框 选择 相应 的 属性 值 ， 单 击 “ 提 


交 ” 按 钮 ， 就 可 以 删除 相应 的 属性 值 。 该 界面 的 代码 如 下 : 


<html> 
<head> 
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<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> 
<title> 删 除 Contents</title> 
</head> 
<body> 
<form method="POST" action="DeleContents.asp"> 
<SELECT NAME="ContentRemove" SIZE="1"> 
<% 
"获取 Contents 集合 中 的 所 有 元 素 并 放 入 Select 中 
For Each objItem in Application.Contents 
Response.Write "<OPTION value='"&gobjItem &"'>" & objItem & "</OPTION>" 
Next 
$%> 
</select> 
<input type="checkbox" name="Cl" value="ON"> 全 部 删除 <p> 
<input type="submit" value=" 提 交 " name="Bl"><input type="reset" value=" 重 置 " 
name="B2"></p> 
</p> 
</form> 
</body> 
</html> 


单 击 “ 提 交 ” 按 钮 ， 将 表单 提交 到 文件 DeleContents.asp 处 理 。 代 码 如 下 : 


<html> 

<head> 

<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> 

<title></title> 

</head> 

<body> 

< 条 

Dim item 

"获取 用 户 选择 的 元 素 和 多 选 框 的 值 

item=Request.Form("ContentRemove") 

all=trim(Request.Form("C1")) 

Application.Lock 

' 如 果 用 户 选 中 了 全 部 删除 选项 ， 多 选 框 的 值 为 ON 

If"all="ON" Then 
Application.Contents.Removeall 

Else 
Application.Contents.Remove (item) 

End If 

Application.Unlock 

务 > 

</body> 

</html> 


代码 说 明 如 下 。 

(1) 方法 Remove(Item) 从 Contents 集合 内 删除 Item 指定 的 属性 。Item 可 以 为 字符 串 ， 也 
可 以 为 属性 的 索引 值 。 

(2) 方法 RemoveAll0 从 集合 Contents 集合 内 删除 所 有 属性 。 
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2. StaticObject 集合 


StaticObject 集合 包含 所 有 在 文件 Globalasa 中 ， 使 用 标记 <OBJECT> 声 明 的 对 象 。 有 具体 代 
码 如 下 : 

<% 
For Each obj in Application.Staticobjects 

If IsObject (Application.Staticobjects (obj)) Then 

Response.Write "OBJECT 元 素 ID 为 : "& obj &"<br>" 

End If 
Next 
务 > 


5.2.5 锁定 Application 对 象 


Web 应 用 程序 中 所 有 的 用 户 ， 都 可 以 访问 已 有 的 Application 对 象 ， 也 可 以 修改 这 些 对 象 
的 值 。 例 如 ，Application("Counter'") 用 来 记录 网 站 的 访问 人 数 ， 该 变量 的 初始 值 为 2000。 用 户 
A 和 B 同时 访问 该 对 象 属性 0， 并 分 别 对 Application("Counter") 的 值 增加 1。A 和 B 访问 该 属 
性 值 时 ， 均 为 2000。 当 然 A 和 B 也 就 把 该 属性 值 修改 为 2001。 两 个 用 户 访问 该 属性 ， 该 属性 
值 应 该 增加 2, 也 就 是 2002 才 对 .修改 结果 和 实际 情况 不 符 .为 了 防止 这 种 情况 ,使 用 Application 
对 象 的 Lock 方法 和 UnLock 方法 可 以 解决 。Lock 方法 用 来 阻止 其 他 客户 修改 Application 对 象 
的 属性 值 ， 确 保 在 同一 时 刻 只 能 有 一 个 客户 修改 属性 。Lock 方法 的 语法 格式 如 下 : 


Application.Lock 


在 Application 对 象 锁定 后 ， 只 有 使 用 Unlock 方法 解锁 ， 其 他 用 户 才 可 以 访问 Application 
对 象 。UnLock 方法 解除 Lock 方法 的 锁定 ， 允 许 其 他 用 户 访问 Application 对 象 。UnLock 方法 
的 语法 格式 如 下 : 


Application.UnLock 


如 果 Web 应 用 程序 锁定 Application 对 象 后 ， 没 有 使 用 UnLock 方法 解锁 ，Web 服务 器 会 
在 脚本 文件 结束 后 ， 解 除 对 Application 对 象 的 锁定 。 


5.2.6 Application 应 用 实例 一 一 网 站 访问 计数 器 


Application 对 象 提供 了 多 个 客户 端 用 户 之 间 共 享 信息 的 机 制 ， 每 个 客户 端 用 户 都 可 以 访问 
Application 对 象 中 保存 的 数据 。 利 用 这 Application 对 象 的 这 种 性 质 ， 可 以 实现 很 多 功能 ， 如 构 
建 网 站 的 访问 计数 器 。 下 面 是 一 个 简单 的 网 站 访问 计数 器 ， 这 个 网 站 计数 器 以 图 形 的 方式 显示 
本 网 站 的 访问 数目 。 

网 站 访问 计数 器 具体 的 实现 代码 如 下 : 

<% 

Application.Lock 

Application ("Counter")=Application ("Counter")+1 


Application.UnLock 
各 > 
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<html> 

<head> 

<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> 
<title> 计 数 器 </title> 

</head> 


Dim count "保存 网 站 访问 次 数 
Dim str "保存 输出 内 容 
EE 
count=Application ("Counter") "获取 网 站 的 访问 人 数 
"下 面 使 用 图 片 显 示 访 问 人 数 
n=count\10 
m=count mod 10 
"把 访问 人 数 的 每 位 数字 转换 成 图 片 形式 
Do while not (n=0 and m=0) 
str="<img src='"gm&".gif' >"gstr 
m=n mod 10 
n=n\10 
Loop 
Response.write str 


运行 该 段 代码 ， 结 果 如 图 5-15 所 示 。 
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图 5-15 网 站 计数 器 


这 个 网 站 访问 计数 器 可 以 正确 统计 网 站 的 访问 人 数 。 但 是 当 网 站 服务 器 关闭 该 网 站 或 者 修 
改 Global.asa 时 , 存储 在 Application 对 象 中 的 访问 人 数 就 会 丢失 。 为 了 在 Application 对 象 结束 
时 不 丢失 网 站 的 访问 数目 ， 需 要 保存 网 站 访问 人 数 。 在 本 例子 中 ， 使 用 文本 文件 保存 网 站 访问 
人 数 。 

(1) 声明 FileSystemObject 对 象 实例 。 

为 了 保存 访问 人 数 ， 需 要 在 Global.asa 中 声明 FileSystemObject 对 象 实例 。 文 件 Globalasa 
中 的 具体 代码 如 下 : 

<OBJECT RUNAT=Server SCOPE=Application ID=fso 

PROGID="Scripting.FileSystemOobject"></OBJECT> 

(2) 设置 初始 值 。 

网 站 服务 器 可 能 多 次 修改 Global.asa 文件 , Application 对 象 的 属性 每 次 都 需要 设置 初始 值 。 
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Application 对 象 属性 的 初始 值 , 可 以 从 保存 网 站 访问 人 数 的 文本 文件 读 取 。 具体 实现 代码 如 下 : 


<Script Language="VBScript" RunAt="Server"> 
Sub Application Onstart 
' 获 取保 存 网 站 访问 人 数 的 文本 文件 名 称 
FileName=Server. MapPath ("Counter .txt") 
"判断 是 否 存在 该 文件 ， 不 存在 该 文件 设置 初始 值 为 1 
If not fso.FileExists (FileName) Then 
Application("Counter")=1 
Else 
"如 果 存 在 该 文件 ， 读 取 该 文件 中 的 网 站 访问 人 数 并 赋值 给 App1lication 对 象 的 属性 
Set fs=fso.OpenTextFile (FileName) 
RARAppP1lication("Counter")=fs.ReadLine 
fs.Close 
End If 
Application ("CounterFile")=FileName 
End Sub 
/Script> 


(3) 保存 Application 对 象 的 属性 值 。 
在 Application 对 象 结束 前 ， 需 要 保存 Application 对 象 的 属性 值 。 具 体 代码 如 下 : 
<Script Language="VBScript" RunAt="Server"> 


Sub Application OnEnd 
FileName=Application ("CounterFile") 


counter=Application ("Counter") "获取 访问 人 数 
Set fs=fso.CreateTextFile (FileName,true) "创建 文件 
fs .writeLine (Counter) 
ESsscleose 
End Sub 
</Script> 
5.3 小 结 


本 章 介绍 了 Session 对 象 和 Application 对 象 的 属性 、 方 法 和 事件 ， 并 通过 3 个 综合 实例 介 
绍 了 Session 对 象 和 Application 对 象 的 使 用 方法 。 本 章 的 重点 是 Session 变量 的 使 用 以 及 
Application 对 象 的 创建 、 锁 定 和 解锁 。 本 章 的 难点 是 结合 Session 事件 ， 使 用 Session 变量 。 对 
于 Application 对 象 则 是 在 使 用 数据 库 的 系统 中 , 网 页 创建 连接 数据 库 的 实例 , 存在 一 定 不 安全 
因素 。 为 了 网 站 安全 , 可 以 在 Global.asa 文件 中 , 声明 一 个 连接 数据 库 的 对 象 。 因此 , Global.asa 
文件 的 使 用 也 是 本 章 的 另外 一 个 难点 。 








NN 


第 6 章 Server 对 象 


大 内容 摘要 1cwct 


本 章 介 绍 ASP 中 一 个 重要 的 内 置 对 象 Server。Server 对 象 是 专 为 处 理 服务 器 上 的 特定 任务 
而 设计 的 。 特 别 是 与 服务 器 的 环境 和 处 理 活 动 有 关 的 任务 。 该 对 象 提供 访问 服务 器 的 方法 和 属 
性 ， 允 许 用 户 取得 Web 服务 器 提供 的 各 项 功能 ， 甚 至 可 以 在 服务 器 上 使 用 ActiveX 对 象 编程 。 
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@ 掌握 Server 对 象 常用 的 属性 和 方法 。 
@ 掌握 利用 Server 对 象 实现 的 服务 器 操作 。 


6.1 Server 对 象 概述 


Server 对 象 是 一 个 用 来 控制 服务 器 行为 和 管理 的 对 象 ， 它 允许 用 户 取得 服务 器 提供 的 各 项 
功能 。Server 对 象 是 专门 处 理 服务 器 上 特定 任务 的 对 象 ， 该 对 象 提供 了 一 个 属性 和 7 个 方法 。 
使 用 Server 对 象 的 属性 和 方法 可 以 管理 对 象 或 组 件 的 执行 、 网 页 的 运行 及 错误 的 处 理 。 


6.1.1 Server 对 象 的 属性 


Server 对 象 只 有 唯一 的 一 个 属性 ，ScriptTimeOnut 属性 。 该 属性 指定 脚本 在 结束 前 最 多 可 运 
行 多 长 时 间 。 即 设置 ASP 页 面 中 超时 的 事件 限制 。 当 一 个 ASP 页 面 在 脚本 超时 时 限 之 内 仍然 
没有 执行 完毕 ，ASP 将 终止 执行 并 显示 超时 错误 。 默 认 脚本 超时 时 限 为 90 秒 ， 通 常 这 个 期 限 
值 足够 让 ASP 页 面 执行 完毕 。 但 是 在 一 些 特殊 场合 也 许 不 能 满足 要 求 ， 如 生成 一 个 门户 网 站 
巨大 的 首页 , 或 者 用 户 在 上 传 一 个 很 大 的 文件 时 ，90 秒 的 超时 期 限 不 能 满足 要 求 ,这 时 可 以 设 
置 ScriptTimeOut 属性 ， 人 允许 脚本 执行 更 长 的 时 间 。 

关于 时 间 约 定 方面 的 应 用 程序 , 有 两 个 对 象 的 属性 使 用 到 TimeOut 的 时 间 。 分 别 是 Session 
对 象 的 TimeOut 属性 和 Server 对 象 的 ScriptTimeOnut 属性 。 在 IIS 的 控制 管理 中 可 以 直接 定义 
相关 的 默认 值 。 

如 图 6-1 所 示 ， 打 开 HIS， 选择 “默认 网 站 ”或 相关 虚拟 目录 ， 右 击 并 选择 “属性 ”命令 ， 
在 弹出 的 对 话 框 中 ， 选 择 “ 主 目录 ”选项 卡 。 

在 “ 主 目录 ”选项 卡 中 ， 单 击 “ 配 置 ” 按 钮 ， 会 弹出 “应 用 程序 配置 ”对 话 框 。 在 此 对 话 
框 的 “选项 ”选项 卡 中 , 可 以 设置 “会 话 超时 ”, 即 Session 对 象 的 会 话 时 间 , 还 可 以 设置 “ASP 
脚本 超时 ”， 即 Server 对 象 的 脚本 超时 时 间 ， 如 图 6-2 所 示 。 
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图 6-1 属性 面板 图 6-2 “应 用 程序 配置 ”对 话 框 


以 上 操作 即 是 对 IIS 的 直接 设置 。 但 由 于 目前 大 多 数 用 户 使 用 的 是 “虚拟 主机 ”， 不 能 控 
制服 务 器 的 HS, 所 以 可 以 分 别 使 用 Session.TimeOut 和 Server.ScriptTimeOnut 就 可 自行 定义 相关 
的 超时 时 间 了 。 

例如 , 将 某 个 脚本 的 超时 时 间 设 置 为 2 分 钟 , 可 以 在 该 脚本 文件 开始 处 加 入 如 下 程序 代码 : 


server.scripttimeout=120 


注意 默认 时 间 单 位 为 秒 。 

网 站 大 多 具有 与 用 户 交 互 的 能 力 。 如 果 用 户 输入 了 一 些 错误 数据 ， 使 服务 器 陷入 死 循环 ， 
这 样 会 占用 大 量 的 服务 器 资源 ， 甚 至 导致 服务 器 的 崩溃 。 为 防止 这 种 情况 出 现 ， 应 该 为 每 个 脚 
本 设置 一 定 的 执行 时 间 。 在 服务 器 特别 繁忙 ， 或 生成 大 页 面 时 ， 脚 本 执行 时 间 往 就 会 特别 长 。 
系统 应 该 设置 较 大 的 执行 时 间 ， 以 防止 脚本 没有 执行 完 就 被 强行 终止 。 

下 面 是 设置 脚本 超时 的 例子 。 该 例子 设置 脚本 超时 时 间 为 10 秒 钟 。 该 例 通过 循环 ， 使 网 
页 运行 时 间 超 过 脚本 的 超时 时 间 , 以 便 查 看 超时 后 服务 器 的 输出 结果 。 该 例子 的 实现 流程 如 下 。 

(1) 设置 脚本 的 超时 时 间 。 

(2) 循环 100 次 。 

(3) 停留 1 秒 。 

(4) 输出 *。 

(5) 重复 步 又 (3)。 

(6) 结束 。 

具体 实现 代码 如 下 : 


< 要 

"设置 脚本 的 超时 时 间 为 10 秒 钟 

Server .scriptTimeout=10 

名 > 

<html> 

<head> 

<meta http-equiv="Content-Language" content="zh-cn"> 

<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> 
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<title> 新 建 网 页 1</title> 
</head> 


start=100 


"重复 100 次 ， 以 等 待 超过 10 秒 钟 检验 脚本 超时 时 间 


for k=1 To start 


"获取 当前 时 间 的 秒 数 
nexttime=dateadd ("s",1,time) 


"设置 停留 1 秒 钟 。 原 理 是 获取 当前 的 秒 数 ， 使 用 循环 等 待 时 间 过 去 1 秒 钟 


do while time<nexttime 


loop 
"在 当前 行 输出 上 个 "nx 


for i=1 To k 


response. 


Next 


Write mx 下 输出 信息 


response.write "<BR>" 


next 

%> 
</body> 
</html> 





运行 该 段 代码 ， 结 果 如 图 6-3 所 示 。 在 脚本 运行 时 间 超过 指定 的 脚本 时 间 后 ， 脚 本 输出 了 






已 经 执行 的 结果 ， 并 终止 了 脚本 的 执行 ， 还 显示 出 超时 错误 信息 。 
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Active Server Pages 错误 ASP 0113' 
脚本 超时 
/ch6/6-3.asp 


超过 了 脚本 运行 的 最 长 时 间 。 可 以 通过 为 Server.ScriptTimeOut 属性 国 
指定 新 值 或 在 IIS 管理 工具 中 更 改 相 应 值 来 更 改 此 限制 。 






6.1.2 Server 对 象 的 方法 


Server 对 象 拥有 很 多 方法 ， 这 些 方法 主要 用 于 格式 化 数据 、 管 理 网 站 以 及 创建 其 他 对 象 实 


例 。Server 对 象 的 方法 如 表 6-1 所 示 。 
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表 6-1 Server 对 象 的 方法 


























方 法 说 明 
CreateObject 创建 服务 器 组 件 实例 
HIMLEncode 将 指定 的 字符 串 进行 HTML 编码 ， 使 字符 串 不 会 被 解释 成 HIML 标记 
URLEncode 将 指定 的 字符 串 进 行 编码 ， 以 URL 形式 返回 服务 器 
MapPath 将 指定 的 虚拟 路 径 转换 成 物理 路 径 
Execute 执行 指定 的 ASP 程序 
Transfer 停止 当前 页 面 执行 ， 将 控制 转 到 指定 的 页 面 
GetLastError 获取 ASP 脚本 执行 过 程 中 发 生 的 错误 
Server 对 象 功能 强大 。 下 面 通过 例子 详细 介绍 Server 对 象 常用 的 方法 。 这 些 例子 包括 以 下 
几 个 方面 。 


(1) 使 用 CreateObject0 方 法 创建 对 象 实例 。 

(2) 使 用 HIMLEncode() 方 法 对 网 页 内 容 进行 HTML 编码 。 

(3) 使 用 URLEncode() 方 法 对 字符 串 进行 URL 编码 。 

(4) 使 用 MapPath() 方 法 获取 文件 或 文件 夹 的 物理 路 径 。 

(5) 使 用 CreateObject0 方 法 创建 WScript.Shell 对 象 实例 获取 服务 器 功能 。 

1. 创建 服务 器 组 件 

ASP 内 置 对 象 虽然 可 以 实现 很 多 功能 ， 但 是 设计 更 多 、 更 复杂 的 功能 显得 非常 麻烦 。 如 果 
要 简单 地 实现 这 些 更 复杂 的 功能 ， 就 要 借助 于 其 他 一 些 组 件 。 

如 果 需 要 使 用 其 他 组 件 ， 就 需要 先 创建 这 些 组 件 。Server 对 象 的 CreateObject0 方 法 可 以 创 
建 组 件 实例 。 语 法 格式 如 下 : 

Set Obj=Server.CreateObject (Component) 


其 中 ，Component 为 要 创建 的 组 件 名 称 ，0Obj 为 返回 的 对 象 实例 名 称 。 

下 面 是 一 个 创建 用 户 指定 组 件 对 象 的 例子 。 该 例子 拥有 一 个 用 户 输入 组 件 名 称 的 界面 ， 如 
图 6-4 所 示 。 

在 该 界面 文本 框 中 ， 输 入 scripting.filesystemobject， 单 击 “ 提 交 ” 按 钮 ， 如 图 6-5 所 示 。 
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BNE EY 
请 键入 需要 创建 对 象 的 名 称 : 


提交 | 下 于 


对 象 scripting. filesystemobject 已 经 创建 ! 
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图 6-4 创建 组 件 图 6-5 创建 组 件 成 功 的 界面 
如 果 输 入 错误 的 组 件 名 称 script.filesystemobject， 再 次 单 击 “提交 ”按钮 ， 如 图 6-6 所 示 。 
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对 象 script. filesystemobject 创 建 失败 ! 
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图 6-6 创建 组 件 失败 的 界面 


该 例子 的 具体 实现 代码 如 下 。 
1) “界面 实现 代码 
该 界面 拥有 一 个 表单 ， 表 单 拥有 一 个 文本 框 和 一 个 提交 按钮 。 该 界面 的 实现 代码 如 下 : 


<html> 

<head> 

<meta http-equiv="Content-Language" content="zh-cn"> 

<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> 

<title> 请 键入 需要 创建 对 象 的 名 称 </title> 

</head> 

<body> 

<form method="POST" action="<%=Request.ServerVariables ("SCRIPT NAME")$>"> 
<p> 请 键入 需要 创建 对 象 的 名 称 : <input type="text" name="nameText" size="26"></p> 
<p><input type="submit" value=" 提 交 " name="Bl"><input type="reset" value=" 

重 置 " name="B2"></p> 

</form> 

</body> 

</html> 


代码 说 明 : 使 用 RequestServerVariables("SCRIPT NAME'") 获 取 当 前 脚本 文件 。 判 断 服务 


器 是 否 支 持 该 组 件 的 代码 ， 保 存在 当前 文件 中 。 所 以 使 用 该 环境 变量 获取 当前 文件 的 名 称 。 


2) ”创建 对 象 代码 
创建 对 象 的 流程 如 下 。 

(1) 启用 错误 处 理 。 

(2) 获取 用 户 。 

G) 判断 用 户 输入 内 容 ， 为 空 则 转 (8)。 
(4) 创建 对 象 。 

(5) 判断 创建 对 象 是 否 成 功 ， 不 成 功 转 (7)。 
(6) 显示 创建 成 功 信息 。 

(7) 显示 不 成 功 信 息 。 

(8) 结束 。 

创建 对 象 的 代码 如 下 : 

< 


"启用 错误 处 理 程序 。 如 果 用 户 输入 错误 组 件 名 称 ， 创 建 时 将 产生 错误 
"产生 错误 时 将 会 显示 错误 信息 ， 并 终止 脚本 的 运行 。 为 了 防止 这 种 情况 ， 启 用 错误 处 理 程序 
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On Error Resume Next 


str=Request .Form("nameText") "获取 用 户 输入 的 组 件 名 称 
str=trim(str) ' 去 除 空格 
"判断 用 户 是 否 输入 有 效 的 组 件 名 称 


If len (str) >0 Then 
Set obj=Server.CreateObject (str) ' 创 建 该 组 件 
' 判 断 创 建 的 对 象 实例 是 否 为 对 象 。 是 对 象 则 表示 服务 器 支持 组 件 
If IsObject (obj) Then 
Response.write "<H><font size='5' color="'#0000FF'> 对 象 "&strg" 已 经 创建 ! 
</font>" 
Else 
Response.write "<H><font size='5' color='#0000FF'> 对 象 "&strg" 创 建 失败 ! 
</font>™ 
On Error Go 0 ' 禁 用 错误 处 理 
End If 
End If 
$%> 


代码 说 明 如 下 。 

@ ”On Error 语句 用 来 启用 或 者 终止 错误 处 理 程 序 。 

@ ”启用 错误 处 理 程序 的 语句 是 On Error Resume Next。 在 不 启用 错误 处 理 程序 时 ， 脚 本 
运行 时 遇 到 错误 ， 会 显示 错误 信息 ， 并 终止 脚本 的 执行 。 启 用 错误 处 理 程序 后 ， 遇 到 
错误 时 ， 系 统 跳 过 错误 语句 ， 使 脚本 按照 产生 错误 之 后 的 语句 继续 运行 。 

@ ”禁用 错误 处 理 程序 的 方法 是 On Error Goto 0。 


2. 进行 HTML 编码 
论坛 都 允许 用 户 留言 。 论 坛 帖 子 经 常 有 字体 颜色 和 大 小 都 不 相同 的 留言 ,这些 都 是 用 户 输 


入 了 带 有 HTML 标记 的 留言 。 下 面 是 一 个 显示 用 户 输入 内 容 的 例子 ， 如 图 6-7 所 示 。 


I ownow nas 7 mn eelslv nee [ol] 
各 收 审 ”手机 最 夫 人 
WARE 。。。“ 


请 键入 需要 创建 对 象 的 名 称 : 














用 户 没 有 留言 。 
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图 6-7 HTML 编码 界面 
1) 不 进行 HTML 编码 显示 留言 
(1) 界面 代码 。 
该 例子 界面 包含 一 个 表单 ， 表 单 含有 1 个 文本 框 和 2 个 按钮 。 用 户 可 以 在 文本 框 内 输入 留 


言 内 容 ， 界 面 代码 如 下 : 


<html> 
<head> 
<meta http-equiv="Content-Language" content="zh-cn"> 
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<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> 
<title> 留 言 内 容 </title> 
</head> 
<body> 
<form method="POST" action="<%=Request.ServerVariables ("SCRIPT NAME")%>"> 
<p> 留 言 内 容 : <input type="text" name="nameText" size="26"></p> 
<p ><input type="submit" value=" 提 交 " name="Bl"><input type="reset" value=" 
重 置 " name="B2"></p> 
</form> 
</body> 
</html> 


(2) 显示 留言 内 容 。 
显示 留言 内 容 的 代码 如 下 : 


< 要 
On Error Resume Next "启用 错误 处 理 程序 
str=Request .Form("nameText") "获取 用 户 输入 的 留言 
str=trim(str) 
' 显 示 用 户 的 留言 
If len (str) >0 Then 
Response.write "用 户 留言 内 容 是 : "&str 
Else 
Response.write "用 户 没有 留言 。" 
End If 
$%> 


该 例子 比较 简单 ， 不 再 解释 。 运 行 该 段 代码 ， 文 本 框 中 输入 带 有 JavaScript 脚本 的 HTML 


留言 。 留 言 内 容 ; 








“<p onmousemove="alert (' 你 上 当 了 啊 ') "><font face=" 华 文 行 楷 " size="6" 
color="#EF0000"> 谢谢 你 浏览 我 的 留言 ! </font></p>” 


单 击 “ 提 交 ” 按 钮 ， 如 图 6-8 所 示 。 
图 6-8 只 显示 了 红色 的 “谢谢 你 浏览 我 的 留言 ! ”内 容 。 当 浏览 用 户 鼠 标 在 留言 内 容 上 滑 



























































寺 ， 弹 出 如 图 6-9 所 示 的 对 话 框 。 
OY oreocahor ros Tp elrlv [see rile) 
i JF Er Rs 
上 策 旭 入 天 妆 创 于 对 多 的 名称 x| ED 和 
请 键入 需要 创建 对 象 的 名 称 : 请 键入 需要 创建 和 ammmme x 
提交 下野 扫 交 | 重 可 A wasmm 
用 户 留言 内 容 是 : 用 户 留 言 内 容 是 4 
谢谢 你 浏览 我 的 留言 / 谢谢 你 潍 言 / 
日] 全 EWEI 筷 刁 四 执 点 新 闻 全 医生 成 加 加 络 二 下载 户 名 中 Q 150% 加 看 全 BYGE 且 热 大 新 闻 千 诺 生 | 及 如 六 计 4 下 载 户 各 器 中 A150% 
图 6-8 不 进行 HTML 编码 的 例子 图 6-9 弹出 对 话 框 


由 此 可 见 ， 网 页 把 用 户 的 留言 作为 HTML 页 的 一 部 分 进行 处 理 。 如 果 用 户 的 留言 含有 其 





他 JavaScript 或 者 VBScript 代码 ， 可 能 会 对 系统 产生 更 大 的 破坏 作用 。 因 此 ， 需 要 对 用 户 的 留 


M/k 





言 进 行 处 理 。 

2) 进行 HTML 编码 显示 留言 

为 了 防止 这 种 情况 ， 可 以 使 用 HIMLEncode 方法 处 理 留言 内 容 。HTMLEncode 方法 的 语 
法 格式 如 下 : 


言 ! </font></p>”。 单 击 “ 提 交 ” 按 钮 ， 如 图 6-10 所 
二 6-10 显示 的 留言 内 容 和 用 户 输入 的 内 容 相同 。 用 户 留言 内 容 是 : 


Str=Server.HTMLEncode (String) 


其 中 ，String 为 待 处 理 的 字符 串 ，Sitr 为 处 理 后 的 字符 串 。 
把 上 面 的 例子 使 用 HIMLEncode 方法 进行 修改 。 代 码 如 下 : 


<html> 
<head> 
<meta http-equiv="Content-Language" content="zh-cn"> 
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> 
<title> 留 言 内 容 </title> 
</head> 
<body> 
<form method="POST" action="<%=Request.ServerVariables ("SCRIPT NAME")%>"> 
<p> 留 言 内 容 : <input type="text" name="nameText" size="26"></p> 
<p ><input type="submit" value=" 提 交 " name="Bl"><input type="reset" value=" 
重 置 " name="B2"></p> 
</form> 
< 
On Error Resume Next 
str=Request .Form("nameText") 
str=trim(str) 
If lenl(str)>0 Then 
"显示 HTML 语 
Response.write "用 户 留 言 内 容 是 : "&Server.HTMLEncode (str) 
Else 
Response.write "用 户 没有 留言 。" 
End If 
务 > 
</body> 
</html> 


运行 该 段 代 码 ， 在 文本 框 中 输入 留言 “<p 















onmousemove='"alert(' 你 上 当 了 啊 )"><font face=" 华 文 ed ES = Soon 二 了 ES 
行 档 " size="6" color="#EF0000"> 谢 谢 你 浏览 我 的 留 和 信人 这 FT | 
请 刍 入 需要 旬 CC | 











提交 于 重 明 




















3. 对 字符 串 进行 URL 编码 人 人 

ASP 脚本 提供 了 对 字符 串 编码 的 方法 URLEncode。 + 
该 方法 可 以 对 字符 串 加 密 ， 并 将 加 密 的 字符 串通 过 。 
URL 传送 到 服务 器 。 6-10 ”进行 HTML 编码 的 例子 


URLEncode 方法 的 语法 格式 如 下 : 


Str=Server.URLEncode (String) 
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其 中 ，String 为 待 编码 的 字符 串 ; Str 为 编码 后 的 字符 串 。 
下 面 是 将 用 户 留 言 的 内 容 编 码 并 显示 的 例子 。 该 例子 通过 URL 地 址 传送 留言 内 容 并 显示 。 
有 具体 代码 如 下 : 


<html> 

<head> 

<meta http-equiv="Content-Language" content="zh-cn"> 
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> 
<title> 留 言 内 容 </title> 

</head> 

<body> 

< 村 

Content=" 留 言 内 容 " 

"设置 超级 链接 以 便 传送 加 密 的 字符 串 

务 > 

<a href="<% 


Request .ServerVariables ("SCRIPT NRME") &"?Content="&Server.URLEncode (Content 
) 
$>"> 显 示 留 言 内 容 </a><br> 
< 条 
' 使 用 Request 可 以 获取 Content 的 内 容 
str=Request .querystring("Content") 
str=trim(str) 
If len(str)>0 Then 
Response.write "用 户 留 言 内 容 是 : "&Server.HTMLEncode (str) 
End If 
%> 
</body> 
</html> 


代码 说 明 如 下 。 

(1) 本 界面 显示 了 一 个 超级 链接 。 该 链接 的 链接 地 址 为 当前 文件 ， 传 递 的 参数 为 Content， 
其 值 为 加 密 的 “留言 内 容 ”。 

(2) 直接 使 用 Request 对 象 就 可 以 获取 编码 后 的 参数 内 容 。 

运行 该 段 代码 ， 单 击 “ 显 示 留 言 内 容 ” 链 接 ， 
如 图 6-11 所 示 。 图 6-11 显示 “留言 内 容 ”。 但 是 地 
址 栏 内 ，URL 中 的 “留言 内 容 ” 已 经 转换 成 了 加 密 后 








的 字符 串 %C1%F4%D1%D4%C4%DA%C8%DD。 站 和 于 入 兴 

4. 获取 路 径 

服务 器 操作 文件 或 文件 夹 时 ， 需 要 使 用 文件 或 。 Bose nsw ene mm se pea 
文件 夹 的 物理 路 径 。 但 是 在 编写 ASP 网 页 脚本 时 ， 图 6-11 进行 URL 编码 的 例子 


大 多 使 用 文件 或 文件 夹 的 虚拟 路 径 。 因 此 ， 需 要 把 
虚拟 路 径 转 换 成 物理 路 径 。 使 用 Server 对 象 的 MapPath() 方 法 可 以 实现 转换 功能 。 


/ak 


ASP+Dreamweaver 动 (第 2 版 ) 


MapPath() 方 法 可 以 将 指定 的 路 径 转 换 成 物理 路 径 ， 语 法 格式 如 下 : 


Path=Server .MapPath (FilePath) 


其 中 ，FilePath 为 文件 或 者 文件 夹 的 虚拟 路 径 ， Path 为 转换 后 的 物理 路 径 。FilePath 可 以 为 
文件 ， 或 者 文件 夹 名 称 ， 也 可 以 是 下 列 的 字符 。 

(1) /: 获取 根 目录 路 径 。 

(2) ./: 获取 当前 文件 或 者 文件 夹 的 路 径 。 

(3) ../: 获取 当前 文件 或 者 文件 夹 的 父 目录 。 

下 面 是 获取 当前 文件 的 相关 路 径 的 例子 ， 具 体 实现 代码 如 下 : 


<html> 

<head> 

<meta http-equiv="Content-Language" content="zh-cn"> 

<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> 
<title> 留 言 内 容 </title> 

</head> 

<body> 

< 要 

Response.write "当前 文件 为 : "&Request.ServerVariables ("SCRIPT NAME") &"<BR>" 
Response.write "该 文件 的 路 径 为 : 

"gServer.MapPath (Request .ServerVariables ("SCRIPT NAME"))&"<BR>" 
Response.write "该 文件 的 当前 路 径 为 : "&Server .MapPath("./")&"<BR>" 
Response.write "该 文件 的 父 目 录 路 径 为 : "&Server.MapPath (". ./") &"<BR>" 
Response .write "该 文件 的 根 目 录 路 径 为 : "&Server.MapPath("/") &"<BR>" 








4 : E:\asl 
该 文件 的 要 目录 路 径 为 : E: \asl p 
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图 6-12 获取 文件 路 径 的 示例 运行 结果 
5. 获取 服务 器 操作 系统 信息 


获取 服务 器 的 操作 系统 可 以 通过 组 件 WScript.Shell 的 Environment 来 获取 。Environment 
属性 常用 的 环境 变量 如 表 6-2 所 示 。 
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环境 变量 说 明 
NUMBER OF PROCESSORS 计算 机 上 运行 的 处 理 器 数目 
PROCESSOR ARCHITECTURE 处 理 器 类 型 
OS 服务 器 所 用 的 操作 系统 
COMSPEC 运行 “命令 提示 ”的 命令 ， 通 称 为 cmd.exe 
HOMEDRIVE 服务 器 本 地 驱动 器 
HOMEPATH 服务 器 上 用 户 的 默认 路 径 
PATH 环境 变量 的 路 径 
SYSTEMROOT 系统 目录 
TEMP 系统 存储 临时 文件 目录 





获取 操作 系统 信息 的 代码 如 下 : 


< 条 

GetOSInfo 
Response. 
Response. 
Response. 
Response. 
Response. 
Response. 


write 
write 
write 
write 
write 
write 


"调用 自 定义 的 过 程 GetosInfo 获取 操作 系统 信息 


"操作 系统 为 : "&strOS&"<BR>" ' 调 
"本 地 驱动 器 为 : "&strHomeDrive&"<BR>" 
"用 户 默认 路 径 为 : "&strHomePath&"<BR>" 
"环境 变量 路 径 为 : "&strPathg"<BR>" 
"系统 目录 为 : "&strWindir&"<BR>" 
"临时 文件 目录 为 : "&strTemp&"<BR>" 


' 把 获取 操作 系统 信息 的 代码 形成 一 个 过 程 


sub GetOsSInfo() 


on error resume next 
' 创 建 wscript .shell 对 象 

Set WshShel1 
' 获 取 系统 环境 变量 ， 通 过 环境 变量 获取 操作 系统 参数 

Set WshEnv = WshShell.Environment ("SYSTEM") 
"获取 操作 系统 的 类 型 

StrOS = Cstr (WshEnV("OS") ) 

"获取 本 地 驱动 器 ， 一 般 为 c: 

strHomeDrive=cstr (WshEnv ("HOMEDRIVE")) 

strHomePath=cstr (WshEnv ("HOMEPATH") ) ' 获 取 用 户 默认 路 径 

strPath=cstr (WshEnv ("PATH") ) "获取 环境 变量 路 径 
strwindir=cstr (WshEnv ("SYSTEMROOT") ) "获取 系统 目录 

"获取 系统 的 临时 文件 夹 路 径 

strTemp=cstr (WshEnv ("TEMP")) 

if StrO8 ER = wn “Ehen 


strOS = "未 知 操作 系统 ! " 


end if 
end sub 
%> 


6. 获取 支持 的 组 件 
获取 支持 组 件 的 方法 就 是 创建 该 组 件 的 对 象 ， 然 后 判断 创下 


用 过 程 中 的 变量 显示 指定 信息 


Server.CreateObject ("WScript.Shell") 





EE 对象 是 否 成 功 。 如 果 成 功 ， 则 
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支持 该 组 件 ， 和 否则， 服务 器 不 支持 该 组 件 。 
把 判断 服务 器 是 否 支持 组 件 的 方法 形成 一 个 过 程 ObjCheck0， 有 具体 代码 如 下 : 


<% 
sub ObjCheck (strObj) 
"启动 错误 处 理 ， 防 止 创建 组 件 对 象 错误 ， 不 能 进行 判断 服务 器 是 否 支持 该 组 件 
on error resume next 
IsObj=false 
VerObj="" 
"创建 指定 的 组 件 对 象 
set Obj=server.CreateObject (strObj) 
If IsObject (0bj) then 
Isobj = True 
"获取 该 组 件 对 象 的 版 本 说 明 ， 如 果 不 存在 则 显示 相关 信息 
Verobj =obj.version 
if VerObj="" or isnull (VerObj) then Verobj=obj .about 
end if 
set Obj=nothing 
End sub 
$> 


设置 指定 的 组 件 ， 调 用 过 程 ObjCheck(strObj) 判 断 服务 器 是 否 支持 该 组 件 ， 并 显示 相关 信 
具体 代码 如 下 : 


< 条 
on error resume next "启用 错误 处 理 程序 
"设置 脚本 级 变量 ， 在 过 程 内 外 都 可 以 调用 这 些 变量 
Dim strOSs, strHomeDrive, strHomePath, strPath, strWindir, strTemp 
' 设 置 指定 的 组 件 名 称 和 相应 的 相关 信息 
Dim ObjName (13,2) 
ObjName (0, 0) "MSWC .RdRotatorn 


并 


ObjName (0,1) = "系统 自 带 广告 组 件 " 
ObjName (1,0) = "MSWC.BrowserType" 
ObjName (1,1) = "浏览 器 信息 组 件 " 
ObjName (2,0) = "MSWC.NextLink" 
ObjName (2,1) = "系统 自 带 链接 组 件 " 
ObjName (3, 0) "MSWC .Tools" 


ObjName (4,0) "MSWC .Status" 

ObjName (5,0)= "MSWC.Counters" 

ObjName (5,1) = "系统 自 带 计数 组 件 " 

ObjName (6,0)= "IISSample.ContentRotator" 
ObjName (6,1) = "系统 自 带 内 容 广告 组 件 " 
ObjName (7,0)= "IISSample.PageCounter" 
ObjName (7,1) = "系统 自 带 统计 组 件 " 


ObjName (8,0) = "Microsoft.XMLHTTP" 
ObjName (8,1) = " (Http 组 件 ， 常 在 采集 系统 中 用 到 ) " 
ObjName (9,0) = "WScript.Shell" 


ObjName (9,1) = "(Shell 组 件 ， 可 能 涉及 安全 问题 ) " 
ObjName (10,0) = "Scripting.FileSystemObject" 
ObjName (10,1) = "(FSO 文件 系统 管理 、 文 本 文件 读 写 ) " 
ObjName (11,0) = "Rdodb .Connection" 
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ObjName (11,1) 


ObjName (12, 0) 
ObjName (12, 1) 


"(ADO 数据 对 象 )" 
"Adodb.Sstream" 
" (ADO 数据 流 对 象 ， 常 见 被 用 在 无 组 件 上 传 程序 中 ) " 
ObjName (13, 0) "JMail.smtpMail" 
ObjName (13,1) = "JMail 发 送 邮件 组 件 " 
"循环 检查 服务 器 是 否 支持 指定 的 组 件 ， 并 显示 相关 信息 
For i=0 To 13 
ObjCheck (ObjName (i, 0)) 
IE IsObj Then 
Response .write "系统 支持 "&ObjName (i,0) &" 组 件 。"&ObjName (i,1)&" 
"&gVerObj&"<BR>" 
Else 
Response .write "系统 不 支持 "&ObjName (i,0) &" 组 件 。"&"<BR>" 
End If 
Next 
务 > 


6.2 ”文件 夹 操作 


网 站 经 常 需要 对 文件 ， 或 者 文件 夹 进行 处 理 。 这 就 要 用 到 FSO 对 象 或 Stream 对 象 。FSO 
对 象 和 Stream 对 象 功 能 强大 ， 为 网 站 管理 人 员 带 来 了 方便 。 同 时 ， 也 给 非法 用 户 提供 了 入 侵 
的 机 会 。 因 此 ， 使 用 时 需要 谨慎 。 本 节 将 介绍 使 用 FSO 操作 文件 夹 的 例子 。 


6.2.1 FSO 概述 





FSO(File System Object) 对 象 是 操作 文件 系统 的 对 象 .FSO 对 象 可 以 对 文件 或 文件 夹 进行 处 
理 ， 包 括 新 建文 件 夹 ， 新 建 、 读 写 和 修改 文件 。FSO 对 象 包含 以 下 5 个 对 象 。 

(1) 驱动 器 对 象 (Drive)。 通 过 该 对 象 可 以 获取 有 关 磁 盘 驱 动 器 的 信息 。 这 些 磁盘 驱动 器 包 
括 软 盘 、 硬 盘 、 光 驱 、 虚 拟 盘 及 网 络 驱 动 器 。 

(2) 文件 夹 对 象 (Folder)。 通 过 该 对 象 可 以 新 建 、 删 除 文件 夹 以 及 查询 文件 夹 信息 。 

(3) 文件 对 象 (File)。 通 过 该 对 象 可 以 新 建 、 删 除 文件 以 及 查询 文件 信息 。 

(4) 文件 系统 对 象 (FileSystemObject)。 该 对 象 是 FSO 对 象 的 主要 对 象 , 它 包 含 了 操作 驱动 
器 、 文 件 夹 、 文 件 的 所 有 方法 。 

(5) 文本 流 对 象 (TextStream)。 通 过 该 对 象 对 文本 进行 读 写 操 作 。 

本 节 使 用 FileSystemObject 对 象 对 磁盘 驱动 器 、 文 件 夹 和 文件 进行 操作 。 如 果 系 统 不 支持 
FileSystemObject 对 象 ， 需 要 注册 该 组 件 。 注 册 该 组 件 的 方法 如 下 。 

(1) 打开 命令 提示 符 窗口 ,在 命令 提示 符 窗口 中 输入 命令 Regsvr32.exe scrrun.dll, 如 图 6-13 
所 示 ， 按 Enter 键 。 

(2) 弹出 如 图 6-14 所 示 的 对 话 框 ， 则 恢复 FileSystemObject 组 件 成 功 ;， 否则 ， 需 要 重新 执 
行 上 述 命 令 。 





M/k) 


CE > 


.i scrran dl] 中 的 D11RegisterServer 成 功 。 











图 6-13 恢复 FileSystemObject 组 件 图 6-14 注册 FileSystemObject 组 件 


6.2.2 ”获取 磁盘 信息 


FileSystemObject 对 象 可 以 获取 磁盘 驱动 器 的 信息 。 使 用 FileSystemObject 对 象 提供 的 方法 
和 Drive 对 象 都 可 以 获取 磁盘 信息 。 

1. 使 用 FileSystemObject 对 象 的 方法 获取 磁盘 信息 

使 用 FileSystemObject 对 象 的 方法 获取 磁盘 信息 的 流程 如 下 。 

(1) 创建 FileSystemObject 对 象 。 

(2) 获取 磁盘 信息 数组 。 

(3) 输出 当前 磁盘 信息 。 

(4) 重复 步 又 (3)。 

(5) 结束 。 

获取 磁盘 驱动 器 信息 的 代码 如 下 : 


< 

"使 用 函数 Num2Info () 把 驱动 器 编码 转换 成 驱动 器 的 说 明 信 息 
Function Num2Info (Driver) 

Select Case Driver 

Case 0: Num2Info=" 设 备 无 法 识别 " 


Case 1: Num2Info=" 软 盘 驱动 器 " 
Case 2: Num2Info=" 硬 盘 驱动 器 " 
case 3: Num2Info=" 网 络 硬盘 驱动 器 " 
Case 4: Num2Info=" 光 盘 驱 动 器 " 


Case 5: Num2Info="RAM 虚拟 磁盘 " 

End Select 

End Function 

"创建 FSO 对 象 实例 并 赋 给 变量 fso 

set fso=Server.CreateObject ("Scripting.FileSystemOobject") 

名 > 

<table border=1 width="100%"> 

<tr><td> 盘 符 </td><td> 类 型 </td><td> 卷 标 </td><td> 总 计 大 小 </td><td> 可 用 空间 </tad> 

<td> 文 件 系统 </td><td> 序 列 号 </td><td> 是 否 可 用 </td><td> 路 径 </td></tr> 

<% 

"循环 处 理 每 一 个 驱动 器 磁盘 ， 所 有 驱动 器 信息 存在 Drives 中 

For each driver in fso.Drives 
Response.Write "<tr>" 
Response.Write "<td>" & driver.DriveLetter & "</td>" ， 输出 盘 符 
Response.write "<td>" & Num2Info (driver.DriveType) & "</td>" ' 输 出 磁盘 类 型 
"判断 当前 磁盘 是 否 可 以 用 ， 如 果 为 光驱 却 没有 放 入 光盘 时 是 不 可 以 用 的 ， 因 此 需要 判断 


NN 


加 
= 国 
第 6 章 Server 对 象 加 = 
IE drv.IsReady Then 
"以 上 依次 输出 卷 标 、 磁 盘 容 量 、 可 用 空间 、 文 件 系统 和 序列 号 
Response.write "<td>" & driver.VolumeName & "</td>" 
Response.write "<td>" & FormatNumber (driver.TotalSize / 1024, 0)& 
区 > 
Response.write "<td>" & FormatNumber (driver.Availablespace / 1024, 0) 
i Co 
Response.write "<td>" & driver.FileSystem & "</td>" 
Response.write "<td>" & driver.SerialNumber & "</td>" 
Else 
"磁盘 不 可 以 用 ， 则 输出 以 下 信息 
Response.write "<td> 无 </td>" 
Response.write "<td> 无 </td>" 
Response.write "<td> 无 </td>" 
Response.write "<td> 无 </td>" 
Response.write "<td> 无 </td>" 
End IT£ 
Response.write "<td>" & driver.IsReady & "</td>" 
Response.write "<td>" & driver.Path & "</td>" 
Response.Write "</tr>" 
Next 
set fso=nothing 
务 > 
</table> 


代码 说 明 如 下 。 

(1) 创建 Scripting.FileSystemObject 对 象 的 方法 如 下 : 

set fso=Server.CreateObject ("Scripting.FileSystemObject") 

(2) Drives 是 FileSystemObject 对 象 的 属性 。 该 属性 返回 当前 机 器 的 磁盘 驱动 器 的 集合 。 
访问 磁盘 驱动 器 集合 的 方法 如 下 : 


For each driver in fso.Drives 


"输出 当前 驱动 器 信息 


Next 
(3) 通过 Drive 对 象 的 属性 可 以 获取 驱动 器 信息 ， 说 明 如 表 6-3 所 示 。 
表 6-3 Drive 对 象 的 属性 说 明 








属性 或 方法 
DriveLetter 





返回 磁盘 驱动 器 盘 符 
返回 当前 磁盘 驱动 器 的 类 型 
: 无 法 识别 设备 ; 





DriveType 


0 
1: 软盘 驱动 器 ; 
2: 硬盘 驱动 器 ; 
3: 网 络 硬盘 驱动 器 ; 
4: 光盘 驱动 器 ; 
5: 虚拟 驱动 器 
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续 表 
属性 或 方法 说 明 
AvailableSpace 返回 当前 磁盘 驱动 器 的 可 用 空间 
TotalSize 返回 当前 磁盘 驱动 器 的 总 容量 
VolumnName 返回 当前 磁盘 驱动 器 的 卷 名 
ShareName 返回 当前 磁盘 驱动 器 共享 名 称 
SerialNumber 返回 当前 磁盘 驱动 器 的 序列 号 


(4) 本 例 使 用 函数 Num2Info0, 把 当前 磁盘 驱动 器 的 类 型 转换 成 用 户 易 读 的 形式 。 参 数 为 


DriveType 属性 返回 值 。 


运行 该 段 代 码 ， 结 果 如 图 6-15 所 示 。 
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图 6-15 显示 磁盘 驱动 器 信息 
2. 使 用 Drive 对 象 获取 磁盘 信息 
使 用 Drive 对 象 获取 磁盘 信息 的 流程 如 下 。 
(1) 创建 FileSystemObject 对 象 。 
(2) 获取 Drive 对 象 。 
(3) 输出 当前 磁盘 信息 。 
(4) 结束 。 
获取 磁盘 驱动 器 信息 的 代码 如 下 : 


<table border=1 width="100%"> 
<tr><td> 盘 符 </td><td> 类 型 </td><td> 卷 标 </td><td> 总 计 大 小 </td><td> 可 用 空间 </td> 
<td> 文 件 系统 </td><td> 序 列 号 </td><td> 是 否 可 用 </td><td> 路 径 </td></tr> 
< 村 
set fso=Server.Createobject ("Scripting.FilesystemObject") 
DriverPath="c" 
"判断 当前 驱动 器 是 否 存在 ,如 果 存 在 方法 DriveExists (DriverPath) 则 返回 True, 否则 返回 False 
If fso.DriveExists (DriverPath) Then 

"使 用 GetDrive () 方 法 获取 Drive 对 象 

Set drive=fso.GetDrive (DriverPath) 

Response.Write "<tr>" 

Response.Write "<td>" & drive.DriveLetter & "</td>" 

Response.write "<td>" & Num2Info (drive.DriveType) & "</td>" 

"判断 当前 磁盘 是 否 可 以 用 ， 如 果 为 光驱 却 没有 放 入 光盘 时 是 不 可 以 用 的 ， 因 此 需要 判断 

If drive.IsReady Then 

' 以 上 依次 输出 卷 标 、 磁 盘 容 量 、 可 用 空间 、 文 件 系统 和 序列 号 
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Response.write "<td>" & drive.VolumeName & "</td>" 
Response.write "<td>" & FormatNumber (drive.TotalSize / 1024, 0)& 
< td 
Response.write "<td>" & FormatNumber (drive.Availablespace / 1024, 0) 
& "</td>" 
Response.write "<td>" & drive.FileSystem & "</td>" 
Response.write "<td>" & drive.SerialNumber & "</td>" 
Else 
"磁盘 不 可 以 用 ， 则 输出 以 下 信息 
Response.write "<td> 无 </td>" 
Response.write "<td> 无 </td>" 
Response.write "<td> 无 </td>" 
Response.write "<td> 无 </td>" 
Response.write "<td> 无 </td>" 
End If 
Response.write "<td>" & drive.IsReady & "</td>" 
Response.write "<td>" & drive.Path & "</td>" 
Response.Write "</tr>" 
End If 
set fso=nothing 
$%> 
</table> 


代码 说 明 如 下 。 

(1) 方法 GetDrive(Driver) 返 回 参数 Driver 指定 驱动 器 的 Drive 对 象 。 其 中 ， 参 数 Driver 
为 指定 驱动 器 的 字符 串 。 对 于 Drive 对 象 的 属性 读者 可 以 参考 前 面 内 容 。 

(2) FileSystemObject 对 象 还 提供 了 如 表 6-4 所 示 的 方法 .这些 方法 可 以 获取 磁盘 驱动 器 的 


表 6-4 FileSystemObject 对 象 提供 的 属性 和 方法 


若 存 在 Driver 指定 的 磁盘 驱动 器 ， 该 方法 返回 Tre; 否则 返回 False 
GetDriveName(Path 返回 当前 磁盘 驱动 器 的 名 称 


运行 该 代码 ， 结 果 如 图 6-16 所 示 。 
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图 6-16 磁盘 驱动 器 信息 
6.2.3 获取 目录 信息 


使 用 FileSystemObject 对 象 和 Folder 对 象 可 以 轻易 获取 目录 信息 。 下 面 通过 一 个 例子 向 读 


/em 
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者 介绍 获取 目录 信息 的 方法 。 这 个 例子 不 但 列举 指定 目录 的 信息 ， 还 列举 了 该 目录 下 子 目 录 和 
文件 ， 并 为 子 目 录 添 加 链接 。 单 击 链 接 可 以 看 到 该 子 目录 信息 。 

该 例子 的 实现 流程 如 下 。 

(1) 获取 指定 文件 路 径 。 

(2) 判断 是 否 存 在 该 路 径 ， 不 存在 则 转 (0)。 

(3) 输出 当前 目录 的 信息 。 

(4) 输出 当前 目录 下 所 有 子 目 录 ， 并 添加 链接 。 

(5) 输出 当前 目录 下 所 有 文件 。 

(6) 结束 。 

该 例子 具体 实现 代码 如 下 : 


< 
Set fs=server.createObject ("Scripting.FileSystemOobject") 
FilePath=Request ("FilePath") 
Path="d:" 
"设置 指定 文件 的 物理 路 径 
Path=Path&FilePath 
"判断 指定 的 文件 夹 是 否 存在 ， 存 在 则 FolderExists 返回 True 
if fs.FolderExists(Path) Then 
"获取 指定 路 径 文件 夹 的 对 象 并 返回 给 obj folder 
Set objfolder=fs.GetFolder (Path) 
"获取 当前 文件 夹 下 的 子 目录 
Set folders=objfolder.subfolders 
response.write "当前 目录 为 <font 
color=#EF9900>"&objfolder.Name&g"</font><BR>" ' 输 出 文件 夹 的 名 称 
"判断 当前 目录 是 否 为 根 目录 ， 是 根 目录 IsRootFolder 返回 True， 否 则 返回 False 
If objfolder.IsRootFolder Then 
response.write "当前 目录 为 <font color=#FF9900> 根 目录 </font>。" 
Else 
response.write "当前 目录 不 是 根 目 录 。 父 目录 为 <font color=#FF9900>" 
' 如 果 当 前 目录 不 是 根 目录 ， 则 输出 当前 目录 的 父 目 录 
response.write objfolder.ParentFolderg"</font><BR>" 
End If 
Response.write "当前 目录 的 创建 时 间 为 : "&folder .datecreated&"<BR>" 
response.write "当前 目录 及 子 目录 中 所 有 文件 大 小 总 和 为 <font color=#FF9900>"& _ 
objfolder .Sizeg"</font><BR>" 
"循环 输出 当前 目录 下 的 所 有 子 目 录 
For Each folder In folders 
"以 链接 的 形式 输出 当前 目录 下 的 子 目录 
Response.write "<a 
href='folders.asp?FilePath="g&FilePathg"\"g&folder.nameg"'>"g& 
folder.name&"</A><BR>" 
Next 
Response.write "<font color=#FF0000> 当 前 目录 下 所 有 文件 为 : </font><BR>" 
Set Files=objfolder.Files ' 获 取 当 前 目录 下 的 文件 
"循环 输出 当前 目录 下 的 所 有 文件 名 称 
For each File in Files 
Response.write "<font Color=#FF9900>"&File-nameg&"</Eont><BR>" 
Next 
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End if 
名 > 


代码 说 明 : 该 段 代 码 使 用 FileSystemObject 和 Folder 对 象 的 方法 或 属性 获取 目录 信息 。 这 
些 方法 或 属性 的 说 明 如 表 6-5 所 示 。 


表 6-5 操作 文件 夹 的 方法 或 属性 























方法 或 属性 说 明 
FolderExists(Path) 判断 是 否 存在 Path 指定 的 目录 ， 存 在 返回 True; 否则 返回 False 
GetFolder(Path) 返回 Path 指定 路 径 的 子 目录 集合 
ParentFolder 返回 上 一 级 目录 
Name 返回 当前 目录 名 称 
Size 返回 当前 目录 及 子 目 录 中 所 有 文件 总 和 
Files 返回 当前 目录 下 所 有 文件 的 集合 ， 隐 藏 文件 除外 
SubFolders 返回 当前 目录 下 所 有 子 目 录 的 集合 
IsRootFolder 判断 当前 目录 是 否 为 根 目录 ， 是 返回 True; 否则 返回 False 
datecreated 获取 文件 夹 的 创建 时 间 


6.2.4 ”文件 夹 管理 


现在 ， 网 站 后 台 管理 程序 大 多 提供 在 线 管理 功能 。 在 线 管理 功能 中 的 一 项 ， 就 是 对 服务 器 
上 的 文件 夹 进行 管理 。 文 件 夹 管理 包括 建立 、 复 制 和 删除 文件 夹 。 
下 面 介绍 文件 夹 的 建立 、 复 制 和 删除 。 


1. 建立 新 文件 夹 


创建 文件 夹 可 以 使 用 Server 对 象 的 CreateFolder() 方 法 创建 。CreateFolder() 方 法 的 语法 格式 
如 下 : 


Obj. CreateFolder (FolderName) 


语法 说 明 如 下 。 

(1) FolderName 为 创建 文件 夹 的 名 称 。 该 参数 必须 使 用 物理 路 径 ， 否 则 将 不 能 建立 成 功 。 
(2) Obj 为 Server 对 象 的 名 称 。 

下 面 是 创建 一 个 文件 夹 的 例子 。 

(1) 建立 新 文件 夹 界面 。 代 码 如 下 : 


<html> 

<head> 

<meta http-equiv="Content-Language" content="zh-cn"> 

<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> 

<title> 留 言 内 容 </title> 

</head> 

<body> 

<form method="POST" action="<%=Request.ServerVariables ("SCRIPT NAME")%$>"> 
<p> 创 建文 件 夹 名 称 : <input type="text" name="nameText" size="26"></p> 
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<p ><input type="submit" value=" 提 交 " name="Bl"><input type="reset" value=" 
重 置 " name="B2"></p> 
</form> 
</body> 
</html> 


(2) 获取 新 文件 夹 的 名 称 。 代 码 如 下 : 


< 要 

On Error Resume Next 
str=Request .Form("nameText") 
str=trim(str) 

$%> 


(3) 建立 新 文件 夹 。 代 码 如 下 : 


< 要 
"如 果 用 户 输入 的 文件 夹 名 称 不 为 空 ， 则 进行 创建 文件 夹 
If len (str)>0 Then 


Dim obj 
set obj=Server.CreateObject ("Scripting.FileSystemOobject") 
ob]j .CreateFolder (Server.MapPath ("\"&str) ) "创建 新 文件 


Response.write strg" 文 件 夹 已 经 建立 " 
set obj=nothing 
Else 
Response.write "请 输入 文件 夹 的 名 称 。" 
End If 
多 > 


该 段 代码 比较 简单 ， 不 再 解释 。 运 行 该 段 代码 ， 如 图 6-17 所 示 。 在 文本 框 中 输入 待 建立 
的 文件 夹 名 称 “ 建 立 文件 夹 的 例子 ”， 单 击 “ 提 交 ” 按 钮 。 服 务 器 的 根 目录 下 将 出 现 新 建立 的 





























文件 夹 。 
| 
六 收藏 ”手机 太夫 况 六 展 - 口语 实 实 式 局 关 对 4 类 - 
DEE = EX 
创建 文件 夹 名 称 ，、[ | 
提交 更 昌 
请 输入 文件 夹 的 名 称 。 
习 全 -EN 站 热点 新 闻 全 医生 ”万 加 速 委 十 下载 丰 6 口才 人 150% 
图 6-17 创建 文件 来 
2. 复制 文件 夹 
复制 文件 夹 可 以 使 用 Server 对 象 的 MoveFolder() 方 法 创建 .CopyFolder() 方 法 的 语法 格式 
如 下 : 
Obj. CopyFolder SourceFolder, DestinationFolder 
语法 说 明 如 下 。 
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(1) SourceFolder 为 待 复制 的 文件 夹 名 称 ， 该 参数 必须 使 用 物理 路 径 。 
(2) DestinationFolder 为 复制 后 文件 夹 名称 ， 该 参数 必须 使 用 物理 路 径 。 
(3) Obj 为 FSO 对 象 的 名 称 。 

下 面 是 复制 一 个 文件 夹 的 例子 。 

(1) 复制 文件 夹 的 界面 。 代 码 如 下 : 


<html> 

<head> 

<meta http-equiv="Content-Language" content="zh-cn"> 

<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> 

<title> 留 言 内 容 </title> 

</head> 

<body> 

<form method="POST" action="<%=Request.ServerVariables ("SCRIPT NAME")%>"> 
<p> 源 文件 夹 名 称 : gnbsp; <input type="text" name="SText" size="26"></p> 
<p> 目 的 文件 夹 名 称 : <input type="text" name="DText" size="26"></p> 
<p ><input type="submit" value=" 提 交 " name="Bl"><input type="reset" value=" 

重 置 " name="B2"></p> 

</form> 

</body> 

</html> 


(2) 获取 源 文件 夹 和 目的 文件 夹 名 称 。 代 码 如 下 : 


< 条 

"获取 源 文件 夹 和 目的 文件 夹 路 径 并 转换 成 物理 路 径 
Dim SourcePath, DestinPath 
Sstr=Request.EForm("SText") 
Sstr=trim(Sstr) 

Dstr=Request .Form("DText") 
Dstr=trim(Dstr) 

"把 获取 到 的 文件 物理 路 径 赋 给 变量 
DestinPath=Server.MapPath ("\"&Dstr) 
SourcePath=Server .MapPath ("\"&Sstr) 
务 > 


(3) 复制 文件 夹 。 代 码 如 下 : 


' 如 果 源 文件 夹 和 目的 文件 夹 名 称 不 为 空 ， 则 进行 复制 文件 夹 
If len(Sstr)>0 and len(Dstr)>0 Then 
Dim obj 
set obj=Server.CreateObject ("Scripting.FileSystemObject") 
' 如 果 指 定 的 文件 夹 存 在 ， 则 复制 该 文件 夹 ， 否 则 报错 误 
If obj.FolderExists (SourcePath) Then 
obj .CopyFolder SourcePath,DestinPath ' 复 制 文件 夹 
Response .write "文件 夹 已 经 复制 完毕 " 
Else 
Response .write " 源 文件 夹 不 存在 ! " 
End If 
set obj=nothing 
Else 
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"显示 用 户 输入 数据 不 完整 的 错误 信息 
If len(Sstr)>0 Then 
Response .write "请 输入 源 文件 夹 的 名 称 。" 
Else 
Response.write "请 输入 目的 文件 夹 的 名 称 。" 
End If 
Response.end 
End If 
$%> 


代码 说 明 : FolderExits() 方 法 检查 指定 的 文件 夹 是否 存 在 。 若 存在 ， 返 回 True; 否则 ， 返 
回 False。 

运行 该 段 代 码 ， 结 果 如 图 6-18 所 示 。 在 “ 源 文件 夹 名 称 ”文本 框 中 ， 输 入 “新 建文 件 夹 
的 例子 ”; 在 “目的 文件 夹 名 称 ” 文 本 框 中 ， 输 入 “新 建文 件 夹 的 例子 1”。 单 击 “ 提 交 ” 按 
钮 ， 就 可 以 复制 该 文件 夹 了 。 




















目的 文件 夹 名 称 ，[ 饭 填 文 件 天 的 例 了 1 











提交 [ 素 昌 





文件 夹 已 经 复制 完毕 


ON OE 和 me LT GD Q 150% 





图 6-18 复制 文件 夹 


也 可 以 使 用 MoveFolder 方法 蔡 代 CopyFolder 方法 ， 这 样 ， 这 段 代 码 就 可 以 实现 修改 文件 
夹 名 称 的 功能 了 。MoveFolder 方法 的 语法 格式 如 下 : 


Obj. MoveFolder SourceFolder, DestinationFolder 

语法 说 明 如 下 。 

(1) SourceFolder 为 待 改 名 的 文件 夹 名 称 ， 该 参数 必须 使 用 物理 路 径 。 

(2) DestinationFolder 为 改名 后 文件 夹 名 称 ， 该 参数 必须 使 用 物理 路 径 。 

(3) Obj 为 FSO 对 象 的 名 称 。 

3. 删除 文件 夹 

删除 文件 夹 可 以 使 用 Server 对 象 的 DeleteFolder() 方 法 ， 其 语法 格式 如 下 : 

Obj. DeleteFolder SourceFolder, Type 

语法 说 明 如 下 。 

(1) SourceFolder 为 待 删除 的 文件 夹 名 称 ， 该 参数 必须 使 用 物理 路 径 。 

(2) Type 为 布尔 值 ， 默 认 值 为 False， 表 示 不 删除 只 读 文 件 夹 ; 若 该 值 为 True， 则 表示 要 
删除 只 读 文 件 夹 。 

(3) Obj 为 FSO 对 象 的 名 称 。 

下 面 是 删除 一 个 文件 夹 的 例子 。 
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<html> 
<head> 
<meta http-equiv="Content-Language" content="zh-cn"> 
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> 
<title> 留 言 内 容 </title> 
</head> 
<body> 
<form method="POST" action="<%=Request.ServerVariables ("SCRIPT NAME")%>"> 
<p> 删 除 文件 夹 名 称 : <input type="text" name="nameText" size="26"></p> 
<p ><input type="submit" value=" 提 交 " name="Bl"><input type="reset" value=" 
重 置 " name="B2"></p> 
</form> 
< 多 
On Error Resume Next "启动 错误 处 理 程序 
"str 保存 用 户 输入 的 文件 名 称 ，SourcePath 为 保存 指定 文件 夹 的 物理 路 径 
Dim str,SourcePath 
str=Request .Form("nameText") 
str=trim(str) 
' 获 取 指 定 文件 夹 的 物理 路 径 
SourcePath=Server.MapPath (str) 
"判断 用 户 是 否 输入 了 有 效 文件 夹 名 称 
IfE len (str) >0 Then 
Dim obj 
set obj=Server.CreateObject ("Scripting.FileSystemObject") 
' 如 果 该 文件 夹 存在 ， 则 删除 该 文件 夹 并 输出 删除 信息 
If obj.FolderExists (SourcePath) Then 
obj .DeleteFolder (SourcePath) ' 删 除 指定 的 文件 夹 
Response.write strg" 文 件 夹 已 经 删除 " 
set obj=nothing 
End IF 
Else 
Response.write "请 输入 文件 夹 的 名 称 。" 
End If 
务 > 
</body> 
</html> 


本 段 代码 比较 简单 ， 不 再 解释 。 
6.3 Stream 对 象 


现在 很 多 网 站 大 量 使 用 图 片 。 在 显示 图 片 时 ， 需 要 获知 图 片 的 高 度 和 宽度 ， 以 确定 图 片 显 
示 的 空间 。 本 节 将 通过 两 个 例子 介绍 Stream 对 象 读 取 文件 和 读 取 指定 数目 数据 的 方法 。 一 个 
例子 是 获取 BMP 图 片 高 度 和 宽度 ， 另 一 个 例子 是 无 组 件 上 传 图 片 。 


6.3.1 获取 BMP 图 片 的 高 度 和 宽度 


BMP 图 片 是 一 种 与 硬件 设备 无 关 的 图 像 文件 格式 ， 在 Windows 环境 中 使 用 非常 广泛 。 它 
采用 位 映射 存储 格式 ， 基 本 不 采用 任何 压缩 。 因 此 ，BMP 文件 占用 的 空间 很 大 。 在 Windows 
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环境 中 运行 的 图 形 图 像 软件 ， 基 本 都 支持 BMP 图 像 文件 。 

BMP 图 像 文 件 具 有 一 定 的 格式 。 在 BMP 文件 中 ， 从 第 18 字 节 起 的 4 个 字 节 空间 中 存储 
着 图 像 的 宽度 数据 ， 从 第 22 字 节 起 的 4 个 字 节 存储 着 高 度数 据 。 这 些 数 据 确 定 了 图 像 的 高 度 
和 宽度 。 虽 然 前 面 介绍 的 FSO 对 象 ， 可 以 操作 文件 和 文件 夹 ， 但 它 无 法 直接 操作 二 进 制 文件 ， 
导致 图 片上 传 和 维护 不 方便 。 如 果 读 取 二 进 制 数据 ， 需 要 使 用 ADODB 的 Stream 对 象 。Stream 
对 象 提供 存 取 二 进 制 数据 ， 或 文本 流 的 操作 ， 从 而 实现 对 流 的 读 写 操作 。 

下 面 的 例子 获取 BMP 图 像 的 高 度 和 宽度 ， 具 体 实现 流程 如 下 。 

(1) 判断 是 否 是 BMP 类 型 的 文件 ， 不 是 则 转 (5)。 

(2) 获取 指定 的 字 节 值 。 

(3) 把 获取 的 字 节 值 转换 成 数字 。 

(4) 显示 宽度 和 高 度 。 

(5) 结束 。 


1. 获取 指定 的 字 节 值 
本 例 用 到 了 函数 GetBytes(Path，offset bytes)。 该 函数 功能 是 获取 指定 的 字 节 值 ， 如 表 6-6 


表 6-6 ”GetBytes() 参 数 说 明 


BMP 图 像 的 文件 路 径 


指定 读 取 的 字 节 偏 移 量 
读 取 的 字 节 数 





该 函数 的 实现 流程 如 下 。 
(1) 创建 Stream 对 象 。 
(2) 打开 图 像 文件 。 

(3) 装 入 图 形 文件 数据 。 
(4) 读 取 指 定 的 字 节 。 


该 函数 的 具体 实现 代码 如 下 : 

< 各 

function GetBytes (Path，offset，bytes) 
Dim objFsO "保存 Stream 对 象 实例 
Dim lngsize 
"创建 并 返回 Stream 对 象 


Set objFSO = CreateObject ("ADODB. Stream") 
objFSO.Type=1 ' 设 置 打开 文件 的 方式 : 二 进 制 打开 
objFSO.Mode=admoderead ' 以 只 读 方 式 打开 文件 
"Open 的 语法 格式 为 objFSso.Open Source,Mode, OpenOption,UserName,Password 
"参数 具体 介绍 见 表 6-7 
objFSO.Open 
ObjFSO.LoadFromFile (Path) “' 装 入 指定 的 文件 
if offset > 0 then 
"使 用 Read 方法 先 读 出 offset 个 字 节 ， 使 指针 移 到 待 读 取 的 字 节 处 
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ObjFSO.Read (offset) 
end if 
if bytes = -1 then 
GetBytes =0 
else 


' 使 用 自 定义 的 函数 Byte2Lng 把 读 取 的 字 节 数 转换 成 数字 
GetBytes =Byte2Lng (objFSO.Read (bytes)) 
end if 
objFSo.Close 
set objFSO = nothing 
end function 
务 > 
代码 说 明 如 下 。 
(1) 创建 Stream 对 象 的 方法 如 下 : 
Set objFSO = CreateObject ("ADODB.Stream") 
(2) Stream 对 象 拥有 很 多 属性 和 方法 ， 常 用 的 属性 或 方法 如 表 6-7 所 示 。 
表 6-7 Stream 对 象 常用 的 属性 或 方法 


属性 或 方法 说 明 
Type 说 明 Stream 对 象 操作 的 数据 是 二 进 制 还 是 文本 类 型 。 默认 值 为 
文本 类 型 。 
adTypeBinary: 二 进 制 数据 ， 值 为 “1”; 
adTypeText: 文本 数据 ， 值 为 “2” 


CharSet 设置 或 返回 一 个 代表 字符 集 的 字符 串 值 ， 默 认 的 字符 集 是 
Unicode 
Mode 设置 打开 Stream 对 象 的 访问 权限 。 


adModeRead: 只 读 权限 ， 值 为 “1”:; 
adModeReadWrite: 读 / 写 权 限 ， 值 为 “3”; 
adModeWrite: 写 权限 ， 值 为 “2” 

Open Source,Mode,Option,User,Pwd 打开 Stream 对 象 ， 参 数 意 义 如 下 : 
Source: 指定 对 象 源 。 
Mode: 打开 方式 ， 参 数 Mode 的 属性 说 明 。 
Option: 确定 打开 模式 ，1 为 异步 打开 ; -1 为 默认 选项 。 





User 和 Pwd 为 需要 的 用 户 名 和 密码 
LoadFromFile FileName 将 FileName 文件 装 入 到 打开 的 Stream 对 象 中 
Read(offset) 从 Stream 对 象 中 读 取 offset 个 字 节 数据 


2. 转换 字 节 值 
在 本 例 中 ,Read 方 法 读 取 的 是 二 进 制 数据 ,需要 把 它 转 换 成 十 进 制 数据 ,函数 Byte2Lng(bin) 
把 获取 的 字 节 值 转换 成 十 进 制 数 据 。 具 体 实 现代 码 如 下 : 


<% 
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Function Byte2Lng (bin) 
dim ret "保存 转换 后 的 数值 
ER "设置 ret 的 初始 值 
"对 所 有 的 二 进 制 位 进行 循环 处 理 
for i = lenB(bin) to 1 step -1 
ret = ret *256 + ascb (midb (bin,i,1)) 
next 
Byte2Lng=ret 
End Function 
$%> 


代码 说 明 如 下 。 

(1) 函数 lenB(bin) 返 回 bin 字符 串 中 字符 的 字 节 数 ， 不 是 字符 的 个 数 。 

(2) 函数 midb(bin.im) 返 回 二 进 制 流 数据 bin 从 第 i 个 字 节 起 的 m 个 字 节 数据 。 

(3) ascb(bin) 返 回 参数 bin 首 字 节 的 值 。 

(4) 字 节 数据 转换 成 十 进 制 的 方法 ， 是 所 有 字 节 的 数据 乘 以 该 位 权 值 的 总 和 。 第 i 位 字 节 


数据 的 权 值 是 256*?。 


(5) 获取 图 像 信息 。 


获取 图 像 的 代码 如 下 : 

< 条 

FileName=Trim (Request .querystring ("file")) "获取 文件 名 称 
n=instrRev( FileName ,".") ' 确 定 出 扩展 名 所 在 位 置 
extPath=Lcase (mid (FileName ,n)) ' 获 取 文 件 的 扩展 名 
FileName=Server .MapPath (FileName) ' 获 取 文 件 的 物理 路 径 


' 判 断 文 件 是 否 为 BMP 文件 ， 是 则 进行 处 理 

If extPath=".bmp" Then 
"BMP 图 像 的 第 22 字 节 储存 图 像 的 高 度数 据 

Height = GetBytes (FileName, 22, 4) 

'BMP 图 像 的 第 18 字 节 存储 着 图 像 的 宽度 数据 
Width = GetBytes (FileName, 18, 4) 
Response.write "图 片 宽度 为 :" 
Response.write Widthg"<BR>" 
Response.write "图 片 高 度 为 : " 
Response.write Height &"<BR>" 

务 > 

<img src="<%=FileName%>" width=<%=Width%> height="<%=Height%>"> 

< 

Else 
Response.write "无 法 取得 图 片 宽度 和 高 度数 据 ! " 

End IfEnd If 

%> 


6.3.2 无 组 件 上 传 图 片 


ASP 程序 可 以 将 客户 端的 文件 上 传 到 服务 器 ， 主 要 有 以 下 两 种 方法 。 
(1) 服务 器 安装 文件 上 传 组 件 ，ASP 程序 调用 该 组 件 以 实现 文件 的 上 传 。 这 种 方法 必须 在 


服务 器 上 安装 组 件 ， 免 费 的 个 人 主页 空间 上 并 不 适合 这 种 方法 。 
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(2) 使 用 ASP 内 置 对 象 实现 无 组 件 上 传 文件 。 这 种 方法 不 需要 在 服务 器 上 安装 组 件 ， 管 


理 方便 。 
下 面 介绍 无 组 件 上 传 文件 的 例子 。 


1. 无 组 件 上 传 文件 界面 


本 例 提供 了 上 传 文件 的 界面 ， 界 面 含有 “浏览 ”和 “提交 ”按钮 ， 如 图 6-19 所 示 。 用 户 
选择 合适 的 文件 ， 单 击 “ 提 交 ” 按 钮 ， 就 可 以 把 文件 传 到 指定 的 文件 夹 。 














GO 


localhost 


高 收 诚 - 吕 于 WU 二 


= httpy/ocalhost/che/6-23.asp x | 全 和 ~ 
无 组件 上 传 图 片 例 学 
照片 上 传 浏览 .| 
提 交 





辣 @ 5 图 热点 新 闻 向 医生 万 加 于 本 志 下 载 PP 后 口 由 Q150% 
图 6-19 图 片上 传 界面 
该 界面 的 代码 如 下 : 


<form name="forml" method="post" action="savephoto.asp" 
enctype="multipart/form-data" > 

<input type="hidden" name="act" value="upload"> 

<input type="hidden" name="filepath" value="images"> 

<table width="100%" border="0" cellspacing="0" bordercolordark="#CCCCCC" 
bordercolorlight="#000000"> 

<tr> 

<td align="center"> <p style="margin-top: 0; margin-bottom: 0"> 

<font face=" 华 文 行 楷 "” size="6" color="#FF00FEF"> 无 组 件 上 传 图 片 例子 </font></p> 
<p style="margin-top: 0; margin-bottom: 0"> </p> 

<p style="margin-top: 0; margin-bottom: 0"> 照 片上 传 

<input type="file" name="filename" style="width:229; height:23" class="txl" 
value=""></p> 

<p style="margin-top: 0; margin-bottom: 0"> 

<input type="submit" name="Submit" value=" 提 交 " class="tx"> 

</td></tr> 

</table> 

</form> 


代码 说 明 : form 表单 元 素 含有 enctype 属性 。 该 属性 规定 表单 数据 集 的 编码 内 容 类 型 。 其 
默认 值 是 application/x-www-form-urlencoded， 这 是 标准 的 编码 格式 ， 表 单数 据 被 编码 为 名 称 / 
值 格式 。 但 是 表单 数据 是 大 量 文本 或 者 二 进 制 数据 时 ， 该 类 型 就 不 能 胜任 了 。 因 此 文件 上 传 提 
交 表单 时 ， 应 使 用 格式 multipart/form-data。 
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2. 无 组 件 上 传 文件 原理 
在 提交 上 传 文件 表单 后 ， 在 服务 器 上 接收 到 如 下 信息 : 


和 7d63a918a012e 
Content-Disposition: form-data; name="act" 


一 7d63a918a012e 
Content-Disposition: form-data; name="filepath" 


一 一 -一 一 一 一 一 7d63a918a012e 
Content-Disposition: form-data; name="filename"; filename="F:\man\My 
Pictures\ 慈 禧 \191139.jpg" 
Content-Type: image/pjpeg 


…- (文件 数据 ， 上 传 的 文件 是 图 片 这 里 将 是 乱码 ) 
和 7d63a918a012e 
Content-Disposition: form-data; name="Submit" 


提交 

一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 7d63a918a012e-- 

文件 内 容 说 明 如 下 。 

(1) 该 信息 有 三 部 分 数据 ,第 一 部 分 是 起 始 标志 :“-----------------------------7d63a918a012e”。 


它 后 面 跟着 一 个 回 车 和 换行 符 ， 随 上 传 文件 的 不 同 而 不 同 。 

(2) 第 二 部 分 是 Content-Disposition...image/pjpeg 部 分 。“filename=” 后 的 信息 就 是 上 传 
文件 名 和 上 传 文件 路 径 。 

(3) 第 三 部 分 为 文件 数据 。image/pjpeg 后 有 一 空 行 , 该 空 行 后 的 数据 就 是 文件 数据 。 如 果 
上 传 文件 是 图 片 ， 这 部 分 数据 将 是 乱码 。 文 件数 据 的 结束 位 置 ， 是 第 四 个 起 始 标 志 的 开始 处 。 

(4) 上 传 文件 时 ，ASP 程序 需要 获取 上 传 文件 的 类 型 和 文件 的 数据 。filename 存 有 上 传 文 
件 的 路 径 ， 分 析 这 个 路 径 可 以 获取 文件 的 类 型 ，Content-Type: image/pjpeg 后 的 数据 就 是 文件 
的 数据 。 因 此 ， 获 取 这 两 部 分 值 后 ， 使 用 Stream 对 象 的 SaveToFile 方法 ， 就 可 以 把 文件 数据 
保存 成 文件 了 。 


3. 获取 文件 名 和 文件 数据 


从 以 上 分 析 可 以 看 出 , 第 三 个 起 始 标志 后 的 数据 包含 了 文件 名 , 这 部 分 数据 后 有 一 个 空 行 ， 
空 行 后 的 数据 就 是 文件 数据 。 因 此 ， 可 以 通过 查找 第 三 个 起 始 标 志 以 获取 文件 名 ， 查 找 回 车 和 
换行 符号 确定 文件 信息 数据 。 

获取 文件 名 的 流程 如 下 。 

(1) 获取 保存 图 像 文 件 的 文件 夹 路 径 。 

(2) 获取 所 有 请 求 数据 信息 并 写 入 Stream 对 象 。 

(G3) 获取 起 始 标 志 。 

(4) 获取 文件 名 。 
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(5) 获取 文件 信息 起 始 地 址 。 

(6) 把 文件 信息 保存 入 文件 。 

具体 实现 代码 如 下 : 

<% 

" 求 出 该 文件 的 物理 路 径 ， 以 确定 保存 图 像 的 文件 夹 的 物理 路 径 
path=server .mappath ("savephoto.asp") 

"path 路 径 去 掉 文件 名 就 是 保存 图 像 的 文件 夹 物理 路 径 

'" 反 向 查找 "\" 的 位 置 n， 截 取 path 的 前 n 位 就 是 保存 图 像 的 文件 夹 路 径 
path=mid(path,1,instrRev(path,"\")) 

"获取 所 有 请 求 的 信息 并 存放 入 Stream 对 象 中 
formsize=request.totalbytes ' 求 出 整个 接收 的 数据 大 小 
formdata=request .binaryread (formsize) ' 读 取 整 个 二 进 制 数据 
"创建 Stream 对 象 并 打开 

Set stl=Server.CreateObject ("Adodb.Stream") 

st1l.Type= 1 

St1.Mode=3 

st1.open 

' 把 获取 的 请 求 数据 写 入 st1 对 象 中 ， 以 供 以 后 截取 使 用 

St1.WFite formdata 

return=chrB (13) &chrB (10) “构造 一 个 回 车 换行 符号 

" 求 出 起 始 标志 数据 。 起 始 标志 数据 就 是 第 一 个 回 车 换行 符 之 前 的 数据 
divider=leftB (formdata,clng (instrb (formdata, return) ) -1) 
' 下 面 是 求 出 第 二 个 起 始 标 志 起 始 位 置 

datastart=instrb (lenb (divider), formdata, divider) 

' 下 面 是 求 出 第 三 个 起 始 标志 起 始 位 置 

datastartl=instrb (datastart+1, formdata, divider) 

' 下 面 是 求 出 文件 数据 的 起 始 位 置 

' 文 件数 据 起 始 位 置 等 于 第 三 个 起 始 标志 后 的 回 车 换行 符 的 起 始 位 置 加 上 回 车 换行 符 的 字 节 数 
datastart=instrb (datastart1+1l, formdata, returngreturn) +3 
"获取 文件 路 径 。 把 第 三 个 起 始 标志 后 的 文件 路 径 信息 转换 成 文本 ， 通 过 查找 "filename=" 获 取 文 件 路径 信 息 
set tempStream = Server.CreateObject ("adodb.stream") 
tempStream.TYpe = 1 

tempStream.Mode =3 

tempStream.Open 

"把 st1 中 文件 路 径 信息 部 分 数据 复制 到 tempStream 对 象 中 
st1.Position=datastart1 

st1.CopyTo tempStream ,datastart-datastartl 

"把 tempStream 对 象 中 的 数据 以 文本 形式 读 取 
tempStream.Position = 0 

tempstream.Type = 2 

tempStream.Charset ="gb2312" 

"FilePath 中 保存 文件 路 径 信息 的 文本 形式 

FilePath= tempStream.ReadText 

"确定 "filename=" 的 位 置 ， 通 过 查找 " . "获取 文件 扩展 名 起 始 位 置 
Filename=mid (FilePath, instr (FilePath, "filename=")+10) 
"获取 扩展 名 ， 并 组 合 出 文件 的 路 径 和 文件 名 

ext=mid (Filename, instr (Filename,"."),4) 

"makefilename 是 依据 当前 时 间 组 合 出 文件 名 的 函数 


filename="images\"gmakefilenameg&ext 
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filename=pathgfilename 
各 > 


代码 说 明 如 下 。 
(1) 使 用 Request.binaryread 可 以 获取 上 传 文件 提交 的 数据 。 该 函数 读 取 指定 字 节 数 的 二 进 
制 数 据 。 使 用 该 函数 后 ， 就 不 能 使 用 Request.Form 和 Request.QueryString 集合 。 
(2) 本 段 用 到 的 函数 如 表 6-8 所 示 ， 使 用 的 Stream 属性 或 方法 如 表 6-9 所 示 。 
表 6-8 常用 函数 
函数 
instr(start,strl,str2,Type) 


说 明 
返回 str2 在 strl 字符 串 中 的 位 置 。 参 数 说 明 如 下 : 
Start: 表示 在 strl 中 的 开始 检查 位 置 。 
Type: 为 0 表示 区 分 大 小 写 ; 为 1 表示 不 区 分 大 小 写 
返回 从 strl 的 右边 开始 检查 str2 在 strl 字符 串 中 的 位 置 。 其 他 参数 同 
Instr 函数 








instrRev(start,strl,str2,Type) 





LeftB(str,Num 返回 str 左 端 指定 个 数 的 字 节 
RightB(strNum 返回 str 右 端 指定 个 数 的 字 节 


表 6-9 Stream 属性 或 方法 





属性 或 方法 
Position 取得 或 设置 读 写 Stream 对 象 的 位 置 
ReadText(Num 从 Stream 对 象 中 读 取 Num 字 节 的 数据 ， 不 指定 参数 则 读 取 整 个 文本 文件 
CopyTo DestObj Num 从 源 Stream 对 象 中 复制 Num 字 节 数 到 DestObj 对 象 中 
4. 保存 文件 
保存 文件 的 方法 ， 就 是 把 文件 数据 写 入 到 一 个 文件 中 。 有 具体 实现 代码 如 下 : 
< 村 


" 求 出 图 片 文件 的 长 度 ， 文 件 的 结束 位 置 就 是 第 四 个 起 始 标志 的 开始 处 
"因此 文件 的 长 度 就 是 第 四 个 起 始 标志 的 开始 位 置 减 去 文件 信息 的 起 始 位 置 
dataend=instrb (datastart+l, formdata, divider) -datastart 
Set st2=Server.CreateObject ("Adodb .Stream") 

st2.Type= 1 

st2.Mode=3 

st2 .open 

st1.Position=datastart 

"把 st1 对 象 中 的 从 datastart 开始 的 dataend 个 字 节 数据 复制 到 st2 对 象 中 
st1.copyto st2,dataend 

"把 st2 对 象 的 数据 保存 在 文件 filename 中 

st2.SaveToFile filename,2 

St2-Close 

response.write "<H2> 图 片上 传 成 功 ! </H2>" 

名 > 


代码 说 明 : Stream 对 象 的 方法 SaveToFile 将 二 进 制 内 容 保存 在 本 地 文件 中 。 语 法 格式 如 下 : 
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Streamob]j .SaveToFile FileName,Type 
其 中 ， 参 数 说 明 如 表 6-10 所 示 。 


表 6-10 SaveToFile 方法 








参 数 说 明 
FileName 必 选 参数 ， 指 定 要 保存 的 文件 名 和 路 径 
Type 指定 文件 的 操作 选项 : 


adSaveCreateNotExist: 值 为 1， 表 示 创 建 一 个 新 文件 ， 这 是 缺 省 值 。 
adSaveCreateOverwrite: 值 为 2， 获 盖 一 个 已 有 的 文件 

运行 该 代码 ， 上 传 的 图 片 保存 到 文件 夹 images 中 。 但 是 ， 这 个 程序 没有 验证 上 传 图 片 大 
小 和 图 片 类 型 ， 只 是 实现 了 图 片上 传 的 功能 。 





6.4 小 结 


本 章 讲 述 了 ASP 的 Server 对 象 ， 介 绍 了 Server 对 象 的 属性 和 方法 ， 并 通过 举例 详细 地 介 
绍 了 Server 对 象 的 使 用 方法 。 另 外 ， 本 章 重点 介绍 了 使 用 FSO 对 象 操作 文件 夹 的 方法 ， 以 及 
Stream 对 象 获取 和 上 传 图 片 的 方法 。 这 些 是 ASP 程序 员 必 须 掌握 的 知识 点 。 
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人 内 内 容 摘要 law 

现在 很 多 动态 网 页 是 基于 数据 库 的 。 网 页 的 内 容 依靠 数据 库 生成 ， 信 息 的 查询 和 输入 也 需 
要 数据 库 支 持 ， 可 以 说 网 站 的 操作 基本 离 不 开 数 据 库 的 支持 。 在 ASP 网 站 中 ， 所 有 访问 数据 
库 的 操作 ， 都 可 以 由 ADO 来 实现 。 如 果 不 能 掌握 ADO 的 使 用 方法 ，ASP 程序 员 就 无 法 编写 
出 功能 强大 的 ASP 应 用 程序 。 本 章 将 介绍 ADO 对 象 和 访问 数据 库 的 方法 。 
车/ 学 习 目 标 |owectv 

@ 掌握 Access 数据 库 的 基本 操作 。 

@ 掌握 基本 的 SQL 语句 。 

@ 掌握 ADO 中 的 常用 对 象 。 


7.1 ， Access 数据 库 基 本 操作 


Access 数据 库 是 目前 应 用 十 分 广泛 的 桌面 型 关系 数据 库 , 广泛 应 用 于 各 种 中 小 型 管理 信息 
系统 中 。Access 除了 能 够 做 各 种 编程 语言 的 后 台数 据 库 之 外 ,自己 本 身 也 是 一 种 很 好 的 数据 库 
开发 工具 。 


7.1.1 Access 数据 库 的 基本 概念 


1. 表 

表 是 数据 库 中 最 常用 的 数据 存储 单元 ， 它 包括 所 有 用 户 可 以 访问 的 数据 。Access 的 表 是 二 
维 结构 的 ， 由 行 和 列 两 部 分 组 成 。 列 也 叫 字 段 ， 它 可 以 定义 表 的 结构 。 行 也 叫 记录 ， 保 存 表 中 
的 一 条 数据 。 如 表 7-1 所 示 ， 为 一 个 学 生 登 记 表 ， 该 表 中 包含 了 学 生 的 姓名 、 性 别 、 年 龄 、 学 
院 等 内 容 ， 每 项 内 容 是 一 个 字段 ， 包含 每 个 学 生 内 容 的 一 组 信息 是 一 条 记录 。 建 立 表 时 ， 表 中 
的 字段 必须 指定 一 种 数据 类 型 。 字 段 中 存储 的 数据 必须 与 字段 所 指定 的 数据 类 型 一 致 。 


表 7-1 学 生 登 记 表 

















2. 数据 库 


数据 库 简称 DB(Database 的 简写 )， 是 存储 在 计算 机 中 有 组 织 、 可 共享 的 数据 的 集合 。 可 以 
通过 数据 库 管理 系统 进行 管理 , 并 能 生成 相应 的 数据 库 文件 。 它 具 有 三 大 特点 : 数据 的 结构 化 、 
数据 的 独立 性 和 数据 的 共享 性 。 

数据 库 将 数据 表示 为 多 个 表 的 集合 ,通过 建立 表 与 表 之 间 的 关系 来 定义 数据 库 的 结构 。 例 
如 ， 在 表示 用 户 的 数据 库 中 ， 可 以 包含 学 生 登 记 表 、 教 师 登记 表 等 多 个 表格 。 


3. 查询 


查询 用 于 在 一 个 或 多 个 表 中 查找 满足 指定 条 件 的 数据 , Access 提供 了 多 种 查询 方法 。 例 如 ， 
汇总 查询 、 动 作 查 询 、 选 择 查询 、SQL 查询 。 其 中 SQL 是 指 结构 化 查询 语言 。 


4. 窗 体 


窗 体 是 Access 中 的 主要 界面 对 象 ， 即 通常 所 说 的 窗口 或 对 话 框 。 用 户 对 数据 库 的 任何 操 
作 都 可 以 在 窗 体 中 完成 。 用 户 可 以 使 用 窗 体 向 导 创 建 窗 体 ， 也 可 以 使 用 “自动 窗 体 ”创建 显示 
基础 表 或 查询 中 所 有 字段 和 记录 的 窗 体 。 

如 果 只 是 将 Access 作为 后 台数 据 库 ， 则 不 需要 使 用 窗 体 对 象 。 


7.1.2 创建 Access 数据 库 实例 


下 面 以 Microsoft Access 2003 为 例 , 创建 一 个 Access 数据 库 。 假 设 建立 一 个 学 生 信息 管理 
数据 库 。 具 体操 作 步 又 如 下 。 

(1) 打开 Access， 选 择 “ 文 件 ”|“ 新 建 ”|“ 空 数据 库 ” 命 令 ， 给 这 个 数据 库 取 名 为 
DB STUDENT， 并 保存 到 相应 的 位 置 ， 出 现 如 图 7-1 所 示 的 对 话 框 。 

(2) 有 3 种 创建 数据 库 表 的 方式 ， 即 “使 用 设计 器 创建 表 ”“ 使 用 向 导 创建 表 ” 和 “通过 
输入 数据 创建 表 ”， 这 里 采用 第 1 种 ， 单 击 “ 使 用 设计 器 创建 表 ” 选 项 ， 出 现 如 图 7-2 所 示 的 
对 话 框 。 





图 7-1 Access 的 视图 图 7-2 使 用 设计 器 创建 表 

(3) 首先 创建 学 生 基本 情况 表 T_STUDENT。 在 数据 库 表 的 设计 窗口 中 输入 “字段 名 称 ”， 
并 选择 字段 对 应 的 “数据 类 型 ”。 

字段 TS_ID: 表示 学 生 的 学 号 。 在 这 里 定义 为 数字 类 型 ， 在 字段 中 右 击 ， 选 择 “ 主 键 ” 
命令 ， 将 其 设置 为 主键 。 字 段 T S NAME、T_S_ SEX、T_S_CLASS 等 分 表 代 表 学 生 的 姓名 、 
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性 别 、 班 级 ， 在 此 都 设置 为 文本 类 型 。 字 段 T S_ BIRTHDAY 代表 学 生 的 出 生日 期 ， 设 置 为 时 
间 类 型 。 字 段 的 详细 设计 还 可 以 通过 “常规 ”和 “查阅 ”选项 卡 进行 。 

建立 好 的 学 生 基 本 信息 表 如 图 7-3 所 示 。 

(4) 以 相同 的 方式 创建 数据 库 中 的 其 他 表 ， 如 学 生 家 庭 情 况 表 T FAMILY、 院 系 表 
T_ ACADEMY、 班 级 表 T CLASS 等 。 创 建 完成 后 的 数据 库 如 图 7-4 所 示 。 
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图 7-3 学 生 基 本 信息 表 图 7-4 Students 数据 库 


(5) 在 创建 完 数据 库 文件 ， 建 立 好 数据 库 的 表 及 其 相关 字段 后 ， 则 可 将 相关 的 外 部 数据 录 
入 数据 库 了 。 在 数据 库 中 选择 已 建立 的 表 ， 单 击 数据 库 窗 口中 的 “打开 ”按钮 ， 或 者 直接 双击 
该 数据 库 表 ， 打 开 该 表 进行 数据 的 录入 ， 如 图 7-5 所 示 。 
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TSID 了 SEND [TSSIT. E 忆 TSLCUSS ER 
| 。 oozooo5zo a 11000613030e010021 ” 男 沿用 1903-2-1 2002-8-1 计算 机 2005 本科! 五。 软 促 工 程 
2002060521 于 荣 310907198409080021 。 男 ”汉族 1984-9-8 2002-9-1 计算 机 。 2002 本 科班 。 软件 工程 
2002060522 于 家 读 430706196206070023 。 男 。 议 让 1982-8-7 2002-9-1 让 2002 本 科 ! 班 。 软件 工程 
002060523 化 菲 “240605190312230034 妇 议 姨 “| 1963-12-Z3 2002-9-1 z00z 本 科 1 驻 ““ 软 梓 工 程 
2002080524 要 小 菇 。 240605198411230034 。 女 。 议 族 1984-11-23 2002-9-1 hm 2005 本 科 2 班 。 ”数据库 
5 李 军 110605196410030037 “和男 。。 议 庶 “1984-10-3 2002-9-1 计算 机 2002 本 科 2 班 。 数据 亩 
002060528 张 艺 红 41936312230034 。 女 沿 娆 “| 1963-12-23，2002-8-1 计算 机 200z 本 种 2 旺 。 数据 库 
2002060527 王 述 述 240605198509030034 。 女 汉族 1985-9-3，2002-9-1 计算 机 2002 本 科 2 班 。 数据 这 
军 12040319941t050029 。 男 汉 戏 “1964-11-5，2002-9-1 计算 机 2002 本 和 2 班 。 数据 库 
oe G4 1030519650 女 “ 汉 肛 1995-1-3，ZO02-9-1 计算 机 2002 本 利 z 星 数据库 
240305193411230015 “ 男 汉族“ 1984-11-23 2002-9-1 计算 机 2002 本 科研 。 数据 库 。 | 
Ce Hi | ye| 共有 记录 小 : 11 al 站 
肥 
图 7-5 录入 数据 


7.2 SQL 基础 


SQL 是 Structured Query Language 的 缩写 ， 即 结构 化 查询 语言 。SQL 语言 是 数据 库 的 标准 
语言 。 在 ASP 程序 中 ,使 用 SQL 语言 可 以 访问 和 操作 任何 一 种 数据 库 。 因此 ， 了 解 SQL 语言 
对 ASP 编程 非常 重要 。 

SQL 分 为 以 下 4 个 部 分 。 

(1) 数据 查询 语言 : 查询 数据 。 

(2) 数据 定义 语言 : 建立 、 删 除 和 修改 数据 对 象 ， 如 创建 表 等 。 

(3) 数据 操作 语言 : 完成 数据 操作 的 命令 ， 如 插入 、 删 除 和 修改 数据 等 。 

(4) 数据 控制 语言 : 控制 对 数据 库 的 访问 ， 如 服务 器 的 关闭 、 启 动 等 。 
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SQL 语句 的 常用 核心 动词 及 其 代表 的 语句 功能 如 表 7-2 所 示 。 
表 7-2 SQL 语句 的 常用 核心 动词 














核心 动词 代表 的 语句 功能 
SELECT 查询 数据 
INSERT 插入 数据 
UPDATE 更 新 数据 
DELETE 删除 数据 


7.2.1 SELECT 语句 


SQL 语句 最 主要 的 部 分 就 是 它 的 查询 功能 。 查询 语句 用 来 对 已 经 存在 于 数据 库 中 的 数据 按 
照 特 定 的 组 合 、 条 件 表 达 式 或 者 次 序 进行 检索 ， 它 的 基本 格式 如 下 : 

Select< 列 表 名 > 

From< 表 或 视图 > 

Where< 查 询 限 定 条 件 > 

在 上 述 代码 中 ，Select 指定 了 需要 检索 的 哪些 列 数据 ， 也 就 是 哪些 字段 的 数据 ，from 指定 
了 这 些 数据 来 自 哪些 表 或 者 视图 ，Where 指定 了 检索 的 哪些 行 。 

(1) 查询 表 中 所 有 记录 和 字段 。 

语法 格式 如 下 : 

select * from 数据 表 名 


例如 查询 7.1 节 中 建立 的 数据 库 DB_STUDENT 中 的 T_STUDENT 表 中 所 有 数据 。 编 写 的 
ASP 网 页 主要 代码 如 下 : 
< 多 





Sql="select * from T STUDENT" 
Rs.open sql,conn,1,1 


%> 


上 述 代码 的 运行 结果 如 图 7-6 所 示 。 
TREE 
GO cm EOogE Tell 
0 EE 








2002080: 


科 一 般 软 件 工程 
定 区 101 中 学 





图 7-6 查询 表 中 所 有 记录 的 结果 
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(2) 查询 表 中 指定 字段 的 所 有 记录 。 


select 字段 1， 字段 2， 字 段 3 FROM 数据 表 名 


查询 DB STUDENT 数据 库 的 T_ STUDENT 表 中 指定 字段 T S ID.T S NAME 和 T _S_SEX 
的 所 有 数据 。 编 写 的 ASP 网 页 主要 代码 如 下 : 


<% 


Sql="select T S ID,T S NAME,T S SEX from T STUDENT" 
Rs .open sql,conn1,1 
务 > 
上 述 代码 的 运行 结果 如 图 7-7 所 示 。 
GO om ocahost 
六 下 二 ”手机 以 总 天 6 党 家 国 网 址 大 全 口 360 搜 索 : 


RPMcahasWehy7TFanp > EE 
2002080520 赵 国 男 





ED Tz:|@] 


六 民 口 加 式 一 而 主 。 抽风” 登录 双 家 六] 基 戏 - 同 网 中 - 


六 


2002080521 王 荣 男 





@ ona ssl Sus zstag 上 Te 6 9 Qi 


图 7-7 ”查询 表 中 指定 字段 的 所 有 记录 的 结果 
(3) 利用 where 进行 选择 查询 。 
通常 的 查询 不 是 对 表 的 全 部 数据 进行 查询 ， 而 只 是 从 表 中 选择 出 所 需要 的 数据 ， 此 时 就 需 
要 用 到 关键 字 where。 它 用 来 指定 限制 返回 数据 的 查询 条 件 。 条件 表达 式 是 由 各 种 字段 、 常 量 、 
表达 式 、 关 系 运算 符 、 逻 辑 运算 符 和 特殊 的 运算 符 组 合 起 来 的 ， 具 体 如 表 7-3 到 表 7-5 所 示 。 














表 7-3 where 条 件 中 的 关系 运算 符 




















关系 运算 符 含义 
等 于 ， 用 于 测试 两 个 表达 式 彼此 相等 
< 小 于 ， 用 于 测试 一 个 表达 式 小 于 另 一 个 
> 大 于 ， 用 于 测试 一 个 表达 式 大 于 另 一 个 
二 不 等 于 ， 用 于 测试 两 个 表达 式 彼 此 不 相等 
5 大 于 等 于 ， 用 于 测试 一 个 表达 式 大 于 或 等 于 另 一 个 
= 小 于 等 于 ， 用 于 测试 一 个 表达 式 小 于 或 等 于 另 一 个 
> 不 大 于 ， 用 于 测试 一 个 表达 式 不 大 于 另 一 个 
!< 








不 小 于 ， 用 于 测试 一 个 表达 式 不 小 于 另 一 个 
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表 7-4 where 条 件 中 的 逻辑 运算 符 


























逻辑 运算 符 含 义 
NOT 
AND 
OR 

表 7-5 where 条 件 中 的 特殊 运算 符 
特殊 运算 符 含义 
% 通配符 ， 代 表 任意 多 个 字符 
通配符 ， 代 表 严 格 的 一 个 字符 

3 指定 范围 (如 [a 一 印 或 集合 中 的 任何 单个 字符 
四 不 属于 指定 范围 (如 [a 一 名 或 集合 中 的 任何 单个 字符 
BETWEEN 定义 一 个 取 值 范围 区 间 ， 使 用 AND 将 开始 值 和 结束 值 分 开 
LIKE 字符 串 匹 本 
IN 一 个 字段 的 值 是 否 在 一 组 定义 的 值 之 中 
EXISTS 某 个 字段 是 否 有 值 
ISNULL 字段 是 否 为 NULL 
IS NOT NULL 字段 是 否 不 为 NULL 


例如 , 查询 DB_STUDENT.MDB 数据 库 的 T_STUDENT 表 , 完成 数值 型 字段 的 BETWEEN 
介 于 之 间 查 询 ， 查 询 学 生 学 号 在 2002050820 一 2005080525 之 间 的 记录 ， 并 按照 要 求 的 字段 显 
示 。ASP 网 页 的 主要 代码 如 下 : 

< 

ql "solect TS ID,T S NAME,T S SEX from T STUDENT where T S ID BETWEEN 

2002050820 AND 2005080525" 

Rs.open sql,conn,l1,l 

全 


上 述 代码 的 运行 结果 如 图 7-8 所 示 。 
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7-8 条 件 查询 
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Select 语句 中 需要 用 到 的 参数 如 下 。 

(1) ALL: 显示 结果 集中 的 所 有 行 ，ALL 是 默认 值 。 

(2) DISTINCT: 只 是 显示 结果 集中 的 唯一 行 ， 即 不 显示 重复 的 行 。 
(3) TOPn: 显示 结果 集中 的 前 n 行 。 


7.2.2 INSERT 语句 


在 建成 数据 库 结 构 后 ， 首 先 要 做 的 一 项 工作 就 是 插入 数据 。 使 用 INSERT 语句 可 以 实现 此 
功能 。INSERT 语句 的 语法 格式 如 下 : 
INSERT [INTO] 
{ table name WITH(<table hint limited>[..n]) 
| view name 


| rowset function limited 
' 
{ [ ( column list)] 
{ VALUES 
( {DEFAULT|NULL|expression} [..n] ) 
| derived table 
| execute statement 


} 
| DEFAULT VALUES 

语法 中 的 主要 参数 说 明 如 下 。 

(1) INTO: 一 个 可 选 的 关键 字 ， 可 以 将 它 用 在 INSERT 和 目标 表 之 间 。 

(2) table name: 将 要 接收 数据 的 表 的 名 称 。 

G) WITHC<table hint limited>[..…n]): 指定 目标 表 所 人 允许 的 一 个 或 多 个 表 提示 。 

(4) view_name: 视图 的 名 称 及 可 选 的 别名 。 

(5) rowset function_limited: 是 OPENQUERY 或 OPENROWSET 函数 。 

(6) (column list): 要 在 其 中 插入 数据 的 一 列 或 多 列 的 列表 。 必 须 用 圆 括号 将 column list 
括 起 来 ， 并 且 用 逗号 进行 分 隔 。 

(7) VALUES: 引入 要 插入 的 数据 值 的 列表 。 对 于 column_list 中 或 者 表 中 的 每 个 列 ， 都 必 
须 有 一 个 数据 值 。 必 须 用 圆 括号 将 值 列 表 括 起 来 。 

(8) DEFAULT: 强制 SQL Server 装载 为 列 定义 的 默认 值 。 如 果 对 于 某 列 并 不 存在 默认 值 ， 
并 且 该 列 允 许 NULL， 那 么 就 插入 NULL。 

下 面 通过 实例 介绍 利用 INSERT 语句 向 数据 库 DB_ STUDENT 的 T_ STUDENT 表 中 插入 一 
条 记录 ， 具 体 代码 如 下 : 


<%QLANGUAGE="VBSCRIPT" CODEPAGE="936"%®> 

<html> 

<head> 

<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> 
<title>INSERT 语句 录入 数据 </title> 

</head> 

<body> 
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<$ 
dim conn 
dim sql 
Set conn = Server.CreateObject ("ADODB.Connection") 
conn.Open "driver={Microsoft Access Driver 
(*.mdb) };dbq="&Server.MapPath ("db student .mdb") 
'INSERT 语句 录入 数据 
sql="INSERT INTO 
T STUDENT (T S ID,T S NAME,T S IDCARD,T S SEX,T S NATIONALITY," 


sql=sql&"T S BIRTHDAY,T S ENTRANCE,T S ACADEMY,T S CLASS,T S DIRECTION,T S 
DEGREE，" 
sql=sql&"T S RESUME,T S PHOTO) " 
sql=sql&"” VALUES (2002080531, ' 张 静 ', '110203198409070012',' 女 ', ' 汉 族 '" 
sql=sql&", '1984-9-7', '2002-9-1', "计算 机 '"， '2002 本 科 2 班 ',' 软 件 工程 ', ' 本 科 '" 
sql=sqlg&",' ','Picture\2002080531.JPG')" 
conn.execute Sql 
conn.close 
set conn=nothing 
%> 
<script language="vbscript"> 
MsgBox "成 功 向 T_STUDENT 表 中 录入 一 条 数据 "， ， "成 功 提示 " 
</script> 
</body> 
</html> 


上 述 代 码 的 运行 结果 如 图 7-9 所 示 。 












=omrsnoemsea 和 
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图 7-9 用 INSERT 语句 成 功 插入 数据 


可 以 打开 T_STUDENT 表 来 查看 插入 新 记录 后 的 结果 。 如 图 7-10 所 示 ， 新 记录 已 经 插入 
表 中 。 
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文件 @) 纺 术 中， 视图 白 入 0 格式 吕 ， 记录 @) 工具 鱼 D ID 直 动人 0 
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图 7-10 插入 记录 后 的 结果 
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7.2.3 UPDATE 语句 


UPDATE 语句 的 功能 是 更 新 表 中 的 数据 。 其 语法 格式 如 下 : 
UPDATE { table name } 


SET [(table name)] {column list | variable list }=expression 
[WHERE clausel] 


语法 中 的 参数 table_name 表示 需要 更 新 的 表 的 名 称 。 参 数 SET 指定 要 更 新 的 列 或 者 变量 
名 称 的 列表 。 参 数 column _list 表示 数据 列 的 名 称 。WHERE 指定 条 件 来 限定 所 更 新 的 行 。 
下 面 通过 实例 介绍 利用 UPDATE 语句 在 数据 库 DB STUDENT 的 T STUDENT 表 中 更 新 
学 号 (T_S_ID) 为 2002080531 的 学 生 记 录 的 姓名 (T_S_ NAME) 为 “ 张 竟 ”。 页 面具 体 代 码 如 下 : 
<%QLANGUAGE="VBSCRIPT" CODEPAGE="936"%> 
<html> 
<head> 
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> 
<title>UPDATE 语句 更 新 数据 </title> 
</head> 
<body> 
< 条 
dim conn 
dim sql 
Set conn = Server.Createobject ("ADODB.Connection") 
conn.Open "driver={Microsoft Access Driver 
(*.mdb) };dbq="&Server.MapPath ("db student .mdb") 
'UPDATE 语句 更 新 数据 
sql="UPDATE T_STUDENT SET T_S NAME=' 张 竟 '" 
Sql=sql&"WHERE T S ID =2002080531" 
conn.execute sql 
conn.close 
set conn=nothing 
务 > 
<script language="vbscript"> 
MsgBox "更 新 T_STUDENT 表 中 一 条 数据 "， ， "成 功 提示 " 
</script> 
</body> 
</html> 


上 述 代码 的 运行 结果 如 图 7-11 所 示 。 
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7-11 用 UPDATE 语句 成 功 更 新 记录 
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打开 T_STUDENT 表 来 查看 更 新 记录 后 的 结果 ， 如 图 7-12 所 示 。 


加 Wicrosoft Access Bg 
文件 四 编辑 E) 视图 WD 插入 QD) 格式 @) 记录 @@ 工具 C) 窗口 中 帮助 人 D 














国电 以 委 | 有 区 | 9 全 | 针 科 | 要 说/ 的 | 间 以 | 澡 
2002080524 要 小 薄 240605196411230034 。” 女 汉 谍 加 
2002080525 李 军 110605198410030037 男 汉 谈 
2002080526 张 艺 红 300307198312230034 女 识 译 副 
2002080527 于 条 旺 2408051 去 汉 让 
2002060528 阵 军 120403198411050029 男 E73 
2002080529 唐 黎 明 110305198501030034 女 汉 姓 
2002080530 彭 德 华 240305196411230015 男 识 嵌 
2002060531 张 竟 110203196409070012 女 汉 媒 

a 堪 
4 





图 7-12 更 新 记录 后 的 结果 
7.2.4 ” DELETE 语句 


DELETE 语句 的 功能 是 删除 表 中 的 数据 。 其 语法 格式 如 下 : 

DELETE [FROM] table name 

WHERE search condition 

语法 中 的 参数 FROM 为 可 选 的 关键 字 , 可 以 用 在 DELETE 关键 字 与 目标 table_name 之 间 。 
参数 table name 表示 要 从 其 中 删除 行 的 表 的 名 称 。 参 数 WHERE 指定 用 于 限制 删除 行 数 的 条 件 。 
如 果 没 有 提供 WHERE 字句 ， 则 删除 表 中 的 所 有 行 。 

例如 ,利用 DELETE 语句 在 数据 库 DB STUDENT 的 T_STUDENT 表 中 删除 学 号 人 T_S_ID) 
为 2002080531 的 学 生 记录 信息 。 在 Dreamweaver CS3 中 设计 ASP 页 面 ， 主 要 代码 如 下 : 

< 多 


Sql="DELETE FROM T STUDENT WHERE T S ID=2002080531" 

由 

注意 DELETE 语句 不 能 删除 一 个 字段 的 值 ， 只 能 删除 整个 记录 。 通 过 上 面 的 代码 ， 可 以 
将 表 中 的 学 号 为 2002080531 的 整 条 学 生 记 录 删 除 。 


7.3 ADO 概述 


ADO 是 英文 ActiveX Data Objects 的 缩写 。 它 提供 了 访问 各 种 数据 库 的 连接 机 制 ， 是 目前 
流行 的 数据 库 连 接 方法 之 一 。ADO 提供 了 访问 数据 库 统一 接口 ， 用 户 使 用 它 可 以 读 取 和 写 入 
几乎 所 有 的 数据 库 系统 ， 包 括 Microsoft SQL Server、Oracle、Microsoft Access 等 数据 库 应 用 程 
序 ， 也 可 以 访问 Microsoft Excel 的 数据 文件 。 

ADO 是 一 个 COM 组 件 ， 任 何 支持 COM 技术 的 编程 语言 都 可 以 使 用 。 这 包括 Microsoft 
Visual Basic、Microsoft Visual C++、Delphi 等 语言 ， 当 然 ASP 语言 也 可 以 使 用 ASP。ASP 脚 
本 通过 ADO 技术 ， 执 行 SQL 指令 ， 对 数据 库 记 录 进 行 添加 、 更 新 和 删除 操作 。 可 以 说 ADO 
适合 Web 数据 库 应 用 的 最 佳 选择 。 
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7.3.1 ADO 对 象 





ADO 提供 了 一 系列 的 对 象 、 属 性 和 方法 。 用 户 使 用 这 些 对 象 、 属 性 和 方法 ， 可 以 轻松 完 
成 对 数据 库 的 连接 ， 以 及 对 数据 的 查询 、 添 加 、 修 改 、 删 除 等 各 种 操作 。 在 ASP 中 ，ADO 由 
ADODB 对 象 库 中 的 子 对 象 组 成 。ADO 常用 的 对 象 如 表 7-6 所 示 。 
表 7-6 ADO 常用 的 对 象 
对 象 说 明 
Connection 连接 对 象 ， 用 来 建立 ASP 脚本 与 数据 源 之 间 的 连接 
Recordset 记录 集 对 象 ， 表 示 从 数据 源 返 回 的 数据 集 
Command 命令 对 象 ， 用 来 执行 SQL 语句 或 者 SQL Server 的 存储 过 程 
Field 域 对 象 ， 表 示 记 录 集 中 一 个 字段 
Parameter 参数 对 象 ， 代 表 与 带 参数 查询 或 者 SQL 存储 过 程 的 Command 对 象 的 一 个 参数 




















Property 属性 对 象 ， 代 表 提 供 者 的 动态 特征 
Error 错误 对 象 ， 与 数据 访问 错误 有 关 的 详细 信息 


ADO 集合 如 表 7-7 所 示 。 


表 7-7 ADO 集合 





对 象 说 明 
Fields 与 Recordset 对 象 关联 的 所 有 Field 对 象 
Parameters 与 Command 对 象 关联 的 所 有 Parameter 对 象 
Properties 所 有 的 Prol 对 象 
Errors 为 连接 错误 创建 的 所 有 Error 对 象 


7.3.2 使 用 ADO 的 步骤 


在 ASP 中 ，ADO 操作 数据 库 的 具体 步骤 如 下 。 

(1) 连接 数据 源 。 

(2) 设置 访问 数据 源 的 命令 ， 一 般 为 SQL 语句 。 

(3) 执行 命令 。 

(4) 如 果 命 令 按 行 返回 数据 ， 则 将 数据 存储 在 缓存 中 。 使 用 SELECT 语句 ， 则 将 返回 的 数 
据 保 存在 Recordset 对 象 中 。 

(5) 对 缓存 中 的 数据 进行 更 改 操 作 。 

(6) 检测 出 现 的 错误 。 

(7) 结束 连接 。 

ASP 在 使 用 ADO 操作 数据 库 时 所 用 到 对 象 如 下 。 


1. 连接 数据 源 
对 数据 库 操作 前 ， 必 须 先 建立 与 该 数据 库 的 连接 。 成 功 的 连接 才 可 以 使 应 用 程序 访问 数据 
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源 。 可 以 说 Command、Recordset、Field 等 对 象 对 数据 库 操作 时 ， 都 必须 依赖 连接 才 可 以 进行 。 


Connection 对 象 可 以 实现 连接 数据 源 操作 。 
Connection 对 象 常用 的 属性 如 表 7-8 所 示 。 


表 7-8 ”Connection 对 象 常用 的 属性 
































属 性 说 明 
ConnectionString 连接 字符 串 ， 表 示 与 数据 源 建立 连接 的 相关 信息 。 需 要 连接 前 设置 
ConnectionTimeout 设置 超时 时 间 ， 默 认 值 为 30 秒 。 需 要 在 连接 前 设置 
Mode 设置 连接 的 模式 ， 需 要 连接 前 设置 
DefaultDatabase 为 连接 设置 一 个 默认 的 数据 库 
Provider 为 连接 指定 一 个 驱动 程序 
Version 获取 ADO 的 版 本 
CursorLocation 获取 或 者 设置 游标 的 位 置 。 该 属性 的 取 值 如 下 。 


adUseNone: 不 使 用 游标 服务 。 
adUseServer: 默认 值 ， 实 时 反映 数据 库 服 务 器 上 的 修改 ， 开 销 很 大 。 
adUseClient: 没有 实时 性 ， 但 可 以 对 数据 进行 查询 等 操作 


Connection 对 象 常用 的 方法 如 表 7-9 所 示 。 





表 7-9 Connection 对 象 常用 的 方法 


关闭 一 个 连接 
Execute 执行 命令 ， 如 执行 SQL 语句 





2. 设置 访问 数据 源 的 命令 

访问 数据 源 , 既 可 以 直接 使 用 SQL 语句 , 也 可 以 通过 Command 对 象 的 属性 设置 .Command 
对 象 具有 强大 的 数据 库 访问 能 力 ， 通 过 它 可 以 轻松 地 完成 对 数据 库 的 各 种 操作 。Command 对 
象 常用 的 属性 如 表 7-10 所 示 。 
表 7-10 Command 对 象 常用 的 属性 


属 性 说 明 
ActiveConnection | 将 Command 对 象 与 一 个 打开 的 连接 关联 
CommandText 设置 或 获取 命令 
CommandTimeout | 设置 或 者 获取 执行 命令 的 最 大 时 间 , 超过 该 值 将 终止 命令 的 执行 或 者 产生 错误 。 该 属 
性 为 长 整 型 值 ， 默 认 值 为 30， 单 位 为 秒 
CommandType 表示 Command 对 象 的 类 型 
State 说 明 对 象 的 状态 是 打开 还 是 关闭 


Command 对 象 常用 的 方法 如 表 7-11 所 示 。 
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表 7-11 Command 对 象 常 用 的 方法 





方 法 说 明 
Cancel 取消 执行 的 命令 
Execute 执行 在 CommandText 属性 中 指定 的 命令 
3. 获取 数据 


Recordset 对 象 可 以 从 执行 的 命令 中 返回 数据 集 。 它 也 是 ADO 普遍 使 用 的 一 个 对 象 。 
Recordset 对 象 可 以 存放 命令 返回 的 结果 ， 并 可 以 对 记录 进行 增 、 删 、 排 序 等 操作 。 
Recordset 对 象 常用 的 属性 如 表 7-12 所 示 。 


表 7-12 ”Recordset 对 象 常用 的 属性 


属 性 说 明 
RecordCount | 返回 记录 和 集 记 录 的 数目 
AbsolutePage | 指定 当前 记录 所 在 的 页 ， 长 整 型 。 该 值 可 以 从 1 到 所 含 页 数 ， 也 可 以 是 下 列 常数 。 
AdPosUnknown: 当前 Recordset 为 空 。 
AdPosBOF: 当前 记录 指针 位 于 记录 和 集 的 头 。 
AdPosEOF: 当前 记录 指针 位 于 记录 集 的 尾 








记 














BOF 指示 当前 记录 位 置 是 否 位 于 记录 集 第 一 个 记录 之 前 。 是 ， 则 为 True; 否则 为 False 
EOF 指示 当前 记录 位 置 是 否 位 于 记录 集 最 后 一 个 记录 之 后 。 是 ， 则 为 True; 否则 为 False 
PageCount 设置 或 者 获取 当前 记录 集中 的 数据 页 数 

PageSize 设置 或 者 获取 记录 集中 一 页 所 包含 的 记录 数 

RecordCount ”| 获取 记录 集中 记录 的 数目 


LockType 设置 或 者 获取 访问 记录 的 锁定 类 型 。 常 用 的 值 如 表 7-13 所 示 
CursorType 记录 集中 的 游标 类 型 。 常 用 的 值 如 表 7-14 所 示 。 


LockType 常用 的 值 如 表 7-13 所 示 。 


表 7-13 LockType 常用 的 值 







默认 值 ， 只 读 ， 不 能 更 改 记 录 数 据 
通常 在 采用 Update 方法 时 锁定 数据 源 的 方式 
通常 在 调用 Update 方法 时 锁定 记录 

用 于 成 批 更 新 


adLockReadOnly 





adLockPessimistic 
adLockOptimistic 
adLockBatchOptimistic 














CursorType 常用 的 值 如 表 7-14 所 示 。 


表 7-14 CursorType 常用 的 值 










方 法 
AdOpenForwardOnly 


AdOpenKeyset 
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说 明 
默认 值 ， 向 前 游标 ， 只 能 向 前 滚动 访问 记录 
键 集 游标 ， 可 以 看 到 其 他 用 户 除了 删除 和 添加 之 外 的 操作 
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方 法 
AdOpenDynamic 
AdOpenStatic 





说 明 
动态 游标 ， 可 以 看 到 其 他 用 户 的 修改 操作 
静态 游标 ， 只 能 查找 记录 和 集 的 静态 副本 ， 看 不 到 其 他 用 














户 的 操作 
Recordset 对 象 常 用 的 方法 如 表 7-15 所 示 。 


表 7-15 ”Recordset 对 象 常用 的 方法 
































方 法 说 明 
MoveFirst 将 当前 记录 的 指针 移动 到 记录 集 的 第 一 个 记录 
MoveLast 将 当前 记录 的 指针 移动 到 记录 集 的 最 后 一 个 记录 
MovePrevious 将 当前 记录 的 指针 向 前 移动 一 个 记录 
MoveNext 将 当前 记录 的 指针 向 后 移动 一 个 记录 
AddNew 添加 一 个 新 记录 
Delete 删除 当前 记录 
Save 保存 记录 
Update 更 新 记录 





4. 检测 出 现 的 错误 


使 用 ADO 操作 数据 库 时 ， 可 能 会 出 现 错误 。 每 次 出 现 错误 ， 会 有 一 个 或 者 多 个 Error 对 
象 放 入 Connection 对 象 的 Errors 集合 中 。 通 过 Error 对 象 可 以 获取 每 个 错误 的 信息 。 
Error 对 象 的 属性 如 表 7-16 所 示 。 


表 7-16 Error 对 象 的 属性 














属 性 说 明 
Description 错误 的 说 明 信 息 
Number 标示 错误 的 常量 
Source 


说 明 产生 错误 的 对 象 
用 于 成 批 更 新 





7.4 Connection 对 象 


ASP 程序 在 操作 数据 库 时 ， 需 要 建立 与 数据 库 的 连接 。ADO 提供 了 Connection 对 象 ， 以 
建立 与 数据 库 的 连接 。Connection 对 象 的 属性 和 方法 ， 可 以 打开 和 关闭 与 数据 库 的 连接 。 

在 ASP 中 ，ADO 连接 数据 库 常 用 的 方法 有 以 下 3 种。 

(1) 使 用 OLE DB 连接 。 

(2) 使 用 ODBC 连接 。 

(3) 使 用 DSN 连接 。 
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7.4.1 使 用 OLE DB 连接 数据 库 


使 用 OLE DB 可 以 连接 SQL Server、Microsoft Access、Excel 等 数据 源 。 下 面 是 连接 不 同 


数据 库 的 方法 。 


如 : 


1. 建立 与 Access 数据 库 的 连接 
下 面 的 代码 使 用 OLE DB 连接 Access 数据 库 user.mdb: 


< 外 

"创建 RDO DB.Connection 对 象 

Set Conn=Server.Createobject ("Adodb.Connection") 

' 获 取 要 连接 的 数据 库 的 物理 路 径 

Path= Server.MapPath ("/user.mdb") 

"依据 连接 的 数据 库 设置 连接 字符 串 

Conn .ConnectionString="Provider=Microsoft.Jet.OLEDB.4.07"& 
"Data Source="&Path 

Conn.Open “打开 与 数据 库 的 连接 

务 > 


代码 说 明 如 下 。 

(1) Provider: OLE DB 提供 者 名 字 ， 如 Microsoft JeLOLEDB.4.0。 

(2) Data Source: 指定 数据 源 的 名 称 ， 如 d:\test\13\user.mdb。 

(3) UserID: 连接 数据 源 时 所 用 的 用 户 名 称 。 

(4) Password: 连接 数据 库 时 用 户 的 密码 。 

上 面 的 形式 也 可 以 修改 成 下 面 的 代码 : 

< 务 

"创建 RDO DB.Connection 对 象 

Set Conn=Server.Createobject ("Adodb.Connection") 

"获取 要 连接 的 数据 库 的 物理 路 径 

Path= Server.MapPath ("/user.mdb") 

Conn.Open '"Provider=Microsoft.Jet.OLEDB.4.0;","Data Source="&Path 

$%> 

Open 方法 的 语法 格式 如 下 : 

connection.Open Connectionstring, UserID, Password, Options 

语法 格式 说 明 如 下 。 

(1) ConnectionString: 可 选项 ， 指 定 连 接 信息 的 字符 串 。 

(2) ConnectionString 字符 串 包 含 由 分 号 隔 开 的 一 系列 语句 。 这 些 语 句 设 置 连接 的 属性 ， 
“Provider=Microsoft.Jet.OLEDB.4.0:”。 

(3) UserID: 可 选项 ， 指 定 连 接 数 据 库 所 用 的 用 户 名 。 此 处 指定 的 UserID ， 将 覆盖 





ConnectionString 字符 串 中 指定 的 UserID。 


(4) Password: 可 选项 ， 指 定 连 接 数 据 库 所 用 的 密码 。 此 处 指定 的 Password， 将 覆盖 


ConnectionString 字符 串 中 指定 的 Password。 


(5) Options: 可 选项 ， 指 定 建立 连接 的 方式 。 常 用 的 常量 如 表 7-17 所 示 。 
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表 7-17 常用 的 常量 


说 明 
默认 值 ， 同 步 打 开 连 接 
异步 打开 连接 





adConnectUnspecified 











adAsyncConnect 


2. 建立 与 SQL Server 数据 库 的 连接 
下 面 的 例子 使 用 OLE DB 连接 SQL Server 数据 库 。 代 码 如 下 : 


< 各 

"创建 RDODB .Connection 对 象 

Set Conn=Server.Createobject ("Adodb.Connection") 

"依据 连接 的 数据 库 设 置 连接 字符 串 

Conn.Connectionstring="'"Provider=SQLOLEDB; DataSource=ServerName;"& 
"Initial Catalog= 

DataBaseName ;UserID=UserName;Password=PWD; " 

Conn .Open “打开 与 数据 库 的 连接 

务 > 

代码 说 明 如 下 。 

(1) 连接 SQL Server 时, OLE DB 的 提供 者 的 名 字 为 SQLOLEDB。 

(2) DataSource 为 SQL Server 服务 器 的 名 字 。 

(3) Initial Catalog 为 数据 库 的 名 字 。 

(4) UserID: 可 选项 ， 指 定 连接 数据 库 所 用 的 用 户 名 。 

(5) Password: 可 选项 ， 指 定 连接 数据 库 所 用 的 密码 。 


7.4.2 ”使 用 ODBC 连接 


ODBC 也 可 以 连接 SQL Server、Microsoft Access 等 数据 库 。 从 连接 形式 上 ， 可 以 使 用 
DRIVER、DBQ、Provider、DataSource 等 关键 字 区 分 ODBC 和 OLE DB 连接 方式 使 用 ODBC 
连接 数据 库 时 ， 连 接 字 符 串 通常 有 DRIVER 和 DBQ; 使 用 OLE DB 连接 数据 库 时 ， 连 接 字 符 
串通 常 含有 Provider 和 DataSource 等 关键 字 。 

下 面 是 使 用 ODBC 连接 不 同 数 据 库 的 方法 。 
1. 建立 与 Access 数据 库 的 连接 
下 面 是 使 用 ODBC 连接 Access 数据 库 的 代码 : 


< 

"创建 ADODB .Connection 对 象 

Set Conn=Server.Createobject ("Adodb.Connection") 

' 依 据 连接 的 数据 库 设置 连接 字符 串 

Conn.Connectionstring="DRIVER={Microsoft.Access.Driver(*.mdb)};"& 
"DBQ="&Server .MapPath ("/user .mdb") 











Conn .Open 
名 > 


/aC 
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代码 说 明 如 下 。 

(1) DRIVER 指定 ODBC 所 用 的 驱动 程序 ， 如 连接 Access 数据 库 所 用 驱动 为 
Microsoft.Access.Driver(*.mdb)。 

(2) DBQ 指定 Access 数据 库 的 物理 路 径 。 


2. 建立 与 SQL Server 数据 库 的 连接 


下 面 是 使 用 ODBC 连接 SQL Server 数据 库 的 代码 : 


< 要 

"创建 ADODB .Connection 对 象 

Set Conn=Server.Createobject ("Adodb.Connection") 

"依据 连接 的 数据 库 设置 连接 字符 串 

Conn .ConnectionString='"DRIVER= (SQLServer) ; Server=ServerName; "& 
"Database= DataBaseName ;UID=UserName;PWD=Password; " 


Conn .Open “打开 与 数据 库 的 连接 

> 

代码 说 明 如 下 。 

(1) 连接 SQL Server 时 , OLE DB 的 提供 者 的 名 字 为 SQLOLEDB。 
(2) Server 为 SQL Server 服务 器 的 名 字 。 

(3) Database 为 数据 库 的 名 字 。 

(4) UID: 可 选项 ， 指 定 连 接 数 据 库 所 用 的 用 户 名 。 

(5) PWD: 可 选项 ， 指 定 连接 数据 库 所 用 的 密码 。 


3. 建立 与 Excel 的 连接 
在 网 站 设计 时 ， 有 时 需要 获取 Excel 数据 源 中 的 数据 。ADO 连接 Excel 文件 的 方法 如 下 : 


<% 

Set ExcelConn = Server.CreateObject ("ADODB.Connection") 
ExeclFile=Server.mappath ("test.xl1s") 

' 依 据 连接 的 数据 库 设置 连接 字符 串 

ExcelDriver = "Driver={Microsoft Excel Driver (*.xls)};DBQ=" & ExeclFile 
ExcelConn.Open ExcelDriver 

务 > 

代码 说 明 如 下 。 

(1) DRIVER 为 连接 Excel 文件 所 用 的 驱动 程序 。 

(2) DBQ 指定 Excel 文件 的 物理 路 径 。 


7.4.3 使 用 DSN 连接 数据 库 


DSN(Data Source Name) 是 ODBC 的 数据 源 名 ， 用 来 标识 数据 源 的 字符 串 。DSN 包含 了 连 
接 特 定数 据 源 的 信息 ， 这 些 信息 包括 数据 源 名 称 以 及 ODBC 驱动 程序 。 

DSN 主要 有 以 下 3 种 类 型 。 

(1) 用 户 DSN。 只 有 建立 该 DSN 的 用 户 才能 访问 该 数据 源 ， 只 能 在 本 计算 机 上 使 用 ， 不 
能 从 网 络 上 访问 该 数据 源 。 
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(2) 系统 DSN。 可 以 被 该 计算 机 上 的 所 有 有 权限 的 用 户 访问 。 
(3) 文件 DSN。 与 系统 DSN 相似 ， 但 是 可 以 从 网 络 上 访问 该 数据 源 。 
DSN 可 以 由 控制 面板 中 的 数据 源 创 建 、 修 改 及 删除 .下 面 介绍 建立 Microsoft Access 和 SQL 





Server 的 DSN 的 方法 。 建 立 DSN 的 步骤 如 下 。 


1. 建立 Access 数据 库 的 DSN 


(1) 打开 设置 DSN 的 窗 
We Windows 2000 Server 操作 系统 中 , 选择 “开始 














令 ， 如 图 7-13 所 示 。 也 可 以 进入 控制 面板 ， 双 击 “ 
开设 置 DSN 的 窗口 。 


击 “ 系 统 DSN” 选 项 卡 ， 设 置 系统 数据 源 名 称 ， 如 图 7-14 所 示 。 























图 7-13 打开 设置 DSN 的 窗口 
(3) 单 各 





Hr 











用 户 3S8 系 蜂 0S8 | 文 # psy | 对 动 程序 | 跟踪 | 这 控油 | 关于 | 





A tl pes ite ODBC” 
工具 ” |“ 数据 源 ODBC” 图 标 ， 打 











添加 下) 
bea 
Bee | 











职 沟 | 一 


图 7-14 
添加 ”按钮 ， 弹 出 “创建 新 数据 源 ” 对 话 框 ， 





设置 系统 数据 源 名 称 


如 图 7-15 所 示 。 


(4) 从 下 拉 列 表 框 中 选择 Microsoft Access Driver(*.mdb) 选 项 ， 单 击 “ 完 成 ”按钮 ， 弹 出 


如 图 7-16 所 示 的 对 话 框 。 





数据 源 5m [ 苯 守 
说 明 四 ): | 


ep 
saw | sam | 
系统 数据 康 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 


5 无 四 
个 数据 库 四) - 














一 驯 | 
帮助 


选项 中 )>》 





图 7-15 “创建 新 数据 源 ” 对 话 框 7-16 





“ODBC Microsoft Access 安装 ”对 话 框 


(5) 输入 数据 源 名 。 单 击 “ 选 择 ” 按 钮 ， 选 择 要 连接 的 数据 库 后 ， 数 据 库 的 名 字 和 驱动 程 








序 的 类 型 如 图 7-17 所 示 。 














(6) 在 目录 列表 框 中 ， 选 择 数据 库 所 在 的 目录 ; 在 数据 库 名 列表 框 中 ， 选 择 数 据 库 。 单 
“确定 ”按钮 ， 如 图 7-18 所 示 。 
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Access 数据 库 的 DSN 添加 完毕 。 
2. 使 用 DSN 连接 数据 库 


设置 DSN 之 后 ， 可 以 通过 DSN 连接 数据 库 。 下 面 为 使 用 DSN 连接 数据 库 的 例子 ， 代 码 
如 下 : 


<$ 

' 创 建 ADODB .Connection 对 象 

Set Conn=Server.Createobject ("Adodb.Connection") 
"依据 连接 的 数据 库 设置 连接 字符 串 

Conn .ConnectionString="DSN=Test;UID=sazPWD=7" 
conn .open “打开 与 数据 库 的 连接 

%> 





图 7-17 添加 的 新 数据 源 图 7-18 “选择 数据 库 ” 对 话 框 


代码 说 明 如 下 。 

(1) DSN 为 数据 来 源 名 称 。 
(2) UID 为 用 户 名 。 

(3) PWD 为 密码 。 


7.5 ”Recordset 对 象 


了 Recordset( 记 录 集 ) 对 象 是 ADO 中 另 一 个 非常 重要 的 对 象 ， 它 在 数据 库 中 经 常用 到 。 该 对 
象 代表 执行 命令 后 返回 的 记录 集合 , 通过 该 集合 可 以 对 记录 进行 查看 、 修改 、 删除 等 各 种 操作 。 
本 节 介 绍 Recordset 对 象 的 方法 和 属性 。 


7.5.1 建立 Recordset 对 象 


在 使 用 Recordset 对 象 前 ， 需 要 创建 Recordset 对 象 。 语 法 格式 如 下 : 


Set rs=Server.CreateObject ("ADODB .Recordset") 


下 面 是 读 取 表 中 所 有 记录 的 例子 。 该 例子 的 具体 实现 过 程 如 下 。 
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1. 连接 数据 库 
下 面 是 连接 数据 库 的 代码 。 这 段 代 码 已 经 介绍 过 ， 这 里 不 再 介绍 。 具 体 代码 如 下 : 


<% 

"创建 ADODB .Connection 对 象 

Set Conn=Server.Createobject ("Adodb.Connection") 

"依据 连接 的 数据 库 设 置 连接 字符 串 

Conn .ConnectionString="Provider=Microsoft.Jet.OLEDB.4.07"& 
"Data Source="&Server.MapPath ("oa.mdb") 

Conn .Open “' 打 开 与 数据 库 的 连接 

$%> 





2. 建立 Recordset 对 象 并 获取 所 有 记录 
下 面 的 代码 建立 Recordset 对 象 ， 并 使 用 Open0) 方 法 获取 指定 表 记 录 。 具 体 代码 如 下 : 


< 多 

Set rs=Server.CreateObject ("ADODB.Recordset") 

rs.Open "Group Info",Conn,adopenKeyset,adLockoptimistic,adCmdTable 
%> 

代码 说 明 : 本 段 代码 使 用 Open() 方 法 获取 表 Group_Info 中 所 有 的 记录 。 

Open0 方 法 获取 表 的 所 有 记录 ， 或 查询 的 记录 。 语 法 格式 如 下 : 


Rs .Open DataSource,Conn, CursorType, LockType, Options 


语法 格式 说 明 如 下 。 

(1) Rs 为 Recordset 对 象 实例 。 

(2) DataSource: 可 选项 ， 可 以 为 SQL 语句 、 表 名 、 存 储 过 程 调用 等 。 

(3) Conn: 可 选项 ， 可 以 为 Connection 对 象 的 实例 ， 也 可 以 是 包含 ConnectionString 的 字 
符 串 。 

(4) CursorType: 可 选项 ， 指 定 使 用 的 游标 类 型 。CursorType 常用 的 值 如 表 7-14 所 示 。 

(5) LockType: 可 选项 ， 指 定 使 用 的 锁定 类 型 。LockType 常用 的 值 如 表 7-13 所 示 。 

(6) Options: 可 选项 ， 指 定 执 行 DataSource 的 方式 。 


3. 输出 记录 
可 以 使 用 下 面 的 方式 获取 记录 指定 字段 的 内 容 : 
rs (Name) 


其 中 ，rs 为 Recordset 对 象 实例 。Name 为 字段 的 名 称 。rs(Name) 为 当前 记录 的 Name 字段 
的 内 容 。 

输出 所 有 记录 内 容 ， 会 用 到 Recordset 对 象 的 EOF 或 者 BOF 属性 。EOF 属性 标识 记录 指 
针 是 否 移动 到 最 后 一 条 记录 之 后 ， 也 就 是 访问 是 否 结束 ; 属性 BOF 用 来 标识 记录 指针 是 否 移 


动 到 首 条 记录 之 前 。 
下 面 的 例子 使 用 Recordset 对 象 ， 输 出 所 有 记录 的 内 容 。 代 码 如 下 : 
< 


/eke 





"判断 记录 指针 是 否 移动 到 最 后 一 条 记录 之 后 ， 也 就 是 记录 访问 是 否 结束 
If not rs.EOF then 
"访问 所 有 可 以 访问 的 记录 
Do while not rs.Eof 
Response.write "<font color="#FF0000'> 职 位 : </font>"&rs ("Name")& 
"。<font color="'#FF0000'> 描 述 信息 : </font>"&rs ("Info") &"<BR>" 
"需要 使 用 MoveNext 把 记录 指针 移动 到 下 一 条 记录 


rs.MoveNext 


Loop 
Else 
Response.write "没有 记录 ! " 
End If 
rs.close ' 关 闭 recordset 


Set rs=Nothing 
Conn.Close 

Set Conn=Nothing 
务 > 


4. 包含 adovbs.inc 文件 
本 例 使 用 了 很 多 常量 , 这 些 常 量 需 要 声明 才 可 以 使 用 。ASP 已 经 提供 了 这 些 常量 的 定义 值 ， 


ASP 程序 员 不 需要 单独 定义 这 些 常量 。 这 些 常 量 包含 在 文件 adovbs.inc 中 。 使 用 这 些 常 量 时 ， 
需要 包含 这 个 文件 。 


文件 adovbs.inc 存放 在 系统 盘 下 目录 Program Files\Common Files\System\ado 下 。 用 户 把 该 


文件 复制 到 指定 的 目录 下 ,就 可 以 引用 。 本 例 把 该 文件 复制 到 当前 目录 下 ,使 用 下 面 的 方式 


<!--#include file="adovbs.inc"--> 
运行 该 段 代码 ， 结 果 如 图 7-19 所 示 。 


i 
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职位 : 校长 。 描述 信息 : 主管 全 校 工 作 ， ee 

职位 : Ee 人 主管 主管 网 络 以 及 后 勒 设备 工 

职位 : 。 描述 信息 : Ee 


教学 处 主任 。 描述 信息 : 主管 教学 工作 。 









教学 处 科 员 -描述 信息 

教务 处 主任 。 描述 信息 : 主管 教务 工作 。 
教务 处 科 员 。 描述 

办 公 。 描述 主管 全 校对 外 工作 。 
办 公 描述 | 


管教 学 工作 。 





副 校长 2。 描述 信 
技术 中 心 科 员 。 描述 
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图 7-19 输出 记录 


7.5.2 ”获取 记录 总 数 


当 对 网 站 查询 ， 而 记录 数目 特别 多 时 ， 需 要 分 页 显示 。 分 页 显示 需要 确定 记录 的 数目 ， 才 


可 以 进行 分 页 显示 。Recordset 对 象 提供 了 属性 RecordCount， 返 回 Recordset 对 象 的 记录 总 数 。 
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1. 使 用 属性 RecordCount 实现 分 页 显示 


下 面 的 例子 使 用 属性 RecordCount 实现 分 页 显示 。 
(1) 连接 数据 库 。 
下 面 是 连接 数据 库 的 代码 。 具 体 代 码 如 下 : 


< 要 

"创建 RDODB .Connection 对 象 

Set Conn=Server.Createobject ("Adodb.Connection") 

"依据 连接 的 数据 库 设 置 连接 字符 串 

Conn .ConnectionString="Provider=Microsoft.Jet.OLEDB.4.07"& 
"Data Source="&Server.MapPath ("oa.mdb") 

Conn .Open “打开 与 数据 库 的 连接 

$%> 


(2) 建立 Recordset 对 象 并 获取 所 有 记录 。 
下 面 的 代码 建立 Recordset 对 象 ， 并 使 用 Open() 方 法 获取 所 有 的 记录 。 有 具体 代码 如 下 : 


< 条 

Set rs=Server.CreateObject ("ADODB.Recordset") 

rs.Open "Group Info",Conn,adopenKeyset,adLockoptimistic,adCcmdTable 
$%> 


(3) 设置 分 页 参数 。 
分 页 时 ， 需 要 获取 记录 总 数 ， 设 置 每 页 显示 的 记录 数目 、 总 页 数 和 当前 页 数 。 下 面 的 代码 
设置 这 些 参 数 : 


< 条 

Dim rsCount ' 存 储 记 录 总 的 数目 
"获取 所 有 的 记录 数目 并 赋 给 变量 rscount 
rsCount=rs.RecordCount 

"变量 Page 存储 总 的 页 数 ，PageSize 为 每 页 显示 的 记录 数目 
Dim Page, PageSize 

Dim n ' 用 来 存储 查询 过 的 记录 数 

n=0 ' 初 始 值 为 0 

"设置 每 页 的 记录 数目 为 2 

PageSize=2 

"计算 总 的 页 数 

Page=rsCount/PageSize 

"获取 当前 的 页 数 
PageNo=Trim(Request.QueryString("Page") ) 
"如 果 用 户 指定 的 页 号 为 空 ， 则 使 该 页 的 数值 为 第 一 页 
If PageNo="" Then PageNo=1 

"把 页 号 转化 成 数值 ， 如 果 不 是 数值 将 出 错 
PageNo=Cint (PageNo) 

"如 果 该 值 小 于 1， 则 使 该 值 为 1， 如 果 大 于 总 页 数 ， 则 设置 该 值 为 总 页 数 
If PageNo<1 Then PageNo=1 

If PageNo>Page Then PageNo=Page 

%> 





/eC 





(4) 显示 记录 。 

显示 指定 页 的 记录 ， 就 要 使 记录 指针 移动 到 指定 页 。 本 例 创建 一 个 计数 器 n， 判 断 记 录 指 
针 是 否 移动 到 指定 页 中 记录 。 下 面 的 代码 使 记录 指针 移动 到 指定 页 。 但 是 这 种 方法 效率 不 高 ， 
在 常见 模块 一 章 的 分 页 模块 一 节 ， 介 绍 了 另外 一 种 分 页 办 法 ， 读 者 可 以 参考 。 代 码 如 下 : 


< 
" 读 取 所 有 的 记录 
Do while not rs.Eof 
"判断 当前 记录 是 否 是 指定 页 内 的 记录 。 是 则 输出 
If n>PageNo*PageSize and n<=PageSize* (PageNo+1) Then 
Response.write "<font color='#FF0000'> 职 位 : </font>"&rs ("Name")& 
"。<font color='#FF0000'> 描 述 信 息 : </font>"&grs ("Info") &"<BR>" 


End If 

n=n+1 "记录 数目 加 一 

rs.MoveNext ' 读 取 下 一 条 记录 
Loop 


$%> 


(5) 显示 页 号 。 
下 面 显示 页 号 链接 ， 以 方便 用 户 查 询 。 代 码 如 下 : 


< 条 
"显示 所 有 的 分 页 链接 
For 1i=1 to Page 
Response.write "<a href='13.3.2.asp?Page="&ig"'> 第 "gig" 页 </a> " 
Next 
$%> 


(6) 关闭 连接 。 代 码 如 下 : 


< 

FS5Close 

Set rs=Nothing 
Conn.Close 

Set Conn=Nothing 
务 > 


运行 该 段 代码 ， 结 果 如 图 7-20 所 示 。 








Oo ohost vel ve 5 加 
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职位 : 副 校 长 2。 描述 信息 : 主管 教学 工作 。 
职位 ; 技术 中 心 科 员 。 描述 信息 : 
第 1 页 第 2 页 第 3 页 第 4 页 第 5 页 
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7-20 ”分 页 显示 
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2. 使 用 AbsolutePage 分 页 


上 面 的 例子 需要 程序 员 设 置 和 计算 页 数 ,相对 麻烦 。Recordset 对 象 提供 了 实现 分 页 的 属性 ， 
这 些 属 性 是 : AbsolutePage、PageCount 和 PageSize。 
下 面 是 使 用 这 几 个 属性 实现 分 页 的 例子 。 
(1) 连接 数据 库 。 
下 面 是 连接 数据 库 的 代码 。 具 体 代码 如 下 : 
< 要 
"创建 ADODB .Connection 对 象 
Set Conn=Server.Createobject ("Adodb.Connection") 
"依据 连接 的 数据 库 设置 连接 字符 串 
Conn .ConnectionString="Provider=Microsoft.Jet.OLEDB.4.07"& 
"Data Source="g&Server.MapPath ("oa.mdb") 


Conn .Open “打开 与 数据 库 的 连接 
%> 





(2) 建立 Recordset 对 象 并 获取 所 有 记录 。 
下 面 的 代码 建立 Recordset 对 象 ， 并 使 用 Open0 方 法 获取 所 有 的 记录 。 具 体 代 码 如 下 : 


< 村 

Set rs=Server.CreateObject ("ADODB.Recordset") 

rs.Open "Group Info",Conn,adOopenKeyset,adLockOptimistic,adcmdTable 
务 > 


(3) 设置 分 页 参数 。 代 码 如 下 : 


< 

"设置 每 页 显示 记录 的 数目 

rs.PageSize=2 

Dim page ' 保 存 总 的 页 数 
page=rs.PageCount ' 获 取 总 页 数 
PageNo=Trim (Request .QueryString ("Page")) ”' 获 取 读 取 页 的 页 码 


"如 果 指定 的 页 码 为 空 ， 则 设置 读 取 第 一 页 
If PageNo="" Then PageNo=1 

"把 指定 页 的 页 码 转换 成 整数 
PageNo=Cint (PageNo) 

' 如 果 小 于 1 则 设置 该 页 码 为 1 

If PageNo<1 Then PageNo=1 

"如 果 指 定 页 的 页 码 大 于 总 页 数 则 设置 该 页 码 为 总 页 数 
If PageNo>Page Then PageNo=Page 
"设置 当前 页 为 指定 页 的 页 码 
rs.AbsolutePage=PageNo 

%> 


代码 说 明 如 下 。 

(1) PageSize 为 每 页 的 记录 条 数 。 

(2) PageCount 属性 表示 Recordset 对 象 的 分 页 总 数 。 
(3) AbsolutePage 属性 可 以 获取 或 设置 当前 页 的 页 码 。 
(4) 显示 当前 页 记录 。 代 码 如 下 : 

<%$ 

"显示 当前 页 的 记录 


AAA Da 





For 1i=1 To rs.PageSize 
"如 果 记 录 指 针 已 经 移动 到 最 后 一 条 记录 之 后 则 终止 读 取 记 录 

If rs.EOF then exit for 
Response.write "<font color="'#FF0000'> 职 位 : 
"。<font color="'#FF0000'> 描 述 信息 : </font>"&rs ("Info") &"<BR>" 
rs.movenext ' 读 取 下 一 条 记录 


next 


务 > 


(5) 显示 页 号 。 代 码 如 下 : 


< 
For i=1 to Page 


</font>"&rs ("Name")& 


Response.write "<a href='13.3.2.asp?Page="&ig"'> 第 "gig" 页 </a> " 


Next 
$%> 


(6) 关闭 连接 。 代 码 如 下 : 


< 要 

TSeClose 

Set rs=Nothing 
Conn.Close 

Set Conn=Nothing 
务 > 


运行 该 段 代码 ， 结 果 如 图 7-21 所 示 。 
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图 7-21 分 页 显示 
7.5.3 添加、 删除 记录 


Recordset 对 象 的 属性 和 方法 ， 也 可 以 实现 对 记录 的 添 
加 和 删除 操作 。Recordset 对 象 提供 了 Addnew() 方 法 添加 记 
录 ，Delete0 方 法 删除 操作 。 

下 面 的 例子 使 用 这 两 个 方法 对 记录 进行 添加 和 删除 , 如 
图 7-22 所 示 。 

该 例子 的 具体 实现 方法 如 下 。 

1. 界面 


该 例子 提供 了 一 个 表单 ， 含 有 两 个 文本 框 和 提交 按钮 。 
该 例子 显示 所 有 的 记录 ， 每 个 记录 都 有 “删除 ”超级 链接 。 
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7-22 ”添加 和 删除 记录 
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添加 记录 时 ， 数 据 提交 到 Insert.asp 文件 处 理 ， 删 除 记 录 由 文件 delete.asp 实现 。 
界面 的 具体 实现 代码 如 下 (这 些 代码 在 前 面 章 节 大 多 介绍 过 ， 这 里 不 再 袭 述 ): 


<!--#include file="adovbs.inc"-——> 
<htm1> 
<head> 
<meta http-equiv="Content-Language" content="zh-cn"> 
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> 
<title> </title> 
</head> 
<body> 
<table ><tr><td> 
<form method="POST" action="insert.asp" 
<p> 职 位 名 称 : <input type="text" name="MingCheng" size="20"></p> 
<p> 职 位 描述 : <input type="text" name="XinXi" size="20"></p> 
<p><input type="submit" value=" 提 交 " name="Bl"><input type="reset" value=" 
重 置 " name="B2"></p> 
</form> 
< 条 
"创建 ADODB .Connection 对 象 
Set Conn=Server.Createobject ("Adodb.Connection") 
"依据 连接 的 数据 库 设置 连接 字符 串 
Conn .ConnectionString="Provider=Microsoft.Jet.OLEDB.4.07"& 
"Data Source="gServer.MapPath ("oa.mdb") 
Conn .Open “打开 与 数据 库 的 连接 
Set rs=Server.CreateObject ("ADODB.Recordset") 
rs.Open "Group Info",Conn,adOopenKeyset,adLockOptimistic,adcmdTable 
' 显 示 所 有 的 记录 
Do While not rs.EOF 
Response.write rs("Name")g" <a href='delete.asp?id="&rs("ID") &"'> 删 除 
</a><BR>" 
rs.movenext 
Loop 
rS:Close 
Set rs=Nothing 
Conn.Close 
Set Conn=Nothing 
务 > 
</td></tr></table> 
</body> 
</html> 






2. 添加 记录 

下 面 的 代码 把 获取 的 记录 信息 添加 到 表 中 : 
<!--#include file="adovbs.inc"-——> 

< 


"创建 ADODB .Connection 对 象 
Set Conn=Server.Createobject ("Adodb.Connection") 


"依据 连接 的 数据 库 设置 连接 字符 串 
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Conn.Connectionstring="Provider=Microsoft .Jet.OLEDB.4.0;"& 
"Data Source="&Server.MapPath ("oa.mdb") 

Conn .Open ' 打 开 与 数据 库 的 连接 

Set rs=Server.CreateObject ("ADODB.Recordset") 

"打开 指定 的 表 

rs.Open "Group Info",Conn,adOopenKeyset,adLockoptimistic,adCmdTable 

"获取 添加 记录 的 信息 

Name=Request .Form ("MingCheng") 

Info=Request .Form ("XinXxi") 

Response.write NamegInfo 

"使 用 Rddnew 方法 添加 一 条 记录 

rs.Addnew Array ("Name","Info"),Array (Name, Info) 

rs.Update "更 新 记录 

rs.close 

Set rs=Nothing 

Conn.Close 

Set Conn=Nothing 

务 > 


代码 说 明 如 下 。 
(1) AddNew() 方 法 向 数据 库 中 增加 记录 。 语 法 格式 如 下 : 


Rs.AddNew Field, Values 


其 中 ，Field 可 选项 ， 可 以 为 记录 字段 名 称 ， 也 可 以 为 一 组 记录 名 称 ，Values 也 是 可 选项 ， 
可 以 为 新 记录 中 的 字段 值 ， 或 者 一 组 字段 的 值 。 

(2) AddNew() 方 法 添加 记录 后 ， 需 要 使 用 Update() 方 法 更 新 记录 ， 才 能 添加 成 功 。 

(3) Update0 方 法 用 来 保存 向 数据 库 中 增加 的 记录 。 语 法 格式 如 下 : 


Rs. Update Field, Values 


其 中 ，Field 可 选项 ， 可 以 为 记录 字段 名 称 ， 也 可 以 为 一 组 记录 名 称 ;，Values 也 是 可 选项 ， 
新 记录 中 的 字段 值 ， 或 者 一 组 字段 的 值 。 


3. 删除 记录 
下 面 是 删除 用 户 指定 记录 的 代码 : 


<!--#include file="adovbs.inc"--> 

<% 

"创建 ADODB .Connection 对 象 

Set Conn=Server .Createobject ("Adodb.Connection") 

"依据 连接 的 数据 库 设置 连接 字符 串 

Conn .ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;"& 
"Data Source="&SerVer.MapPath("oa.mdb") 

Conn .Open “打开 与 数据 库 的 连接 

Set rs=Server.CreateObject ("ADODB.Recordset") 

"获取 用 户 指定 的 记录 序号 

ID1=Request .Querystring ("ID") 

Dim sql 

"设置 查询 该 记录 的 SQL 语句 

Sql="SELECT * FROM [Group Info] WHERE [ID]="&ID1 
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"查询 记录 

rs.Open sql,Conn,adopenKeyset, ,adCmdTable 
rs.Delete "删除 查询 记录 集中 的 记录 
rs.Update "更 新 数据 库 

rs.close 


Set rs=Nothing 
Conn.Close 

Set Conn=Nothing 
务 > 


代码 说 明 : 删除 记录 主要 使 用 Delete() 方 法 实现 。 语 法 格式 如 下 : 
Rs.Delete AffectRecords 


其 中 ，Rs 为 Recordset 对 象 实例 。 参 数 AffectRecords 指定 操作 所 影响 的 记录 数目 ,常用 的 
常量 值 如 表 7-18 所 示 。 


表 7-18 AffectRecords 的 常量 


常 量 说 明 
AdAffectCurrent 默认 值 ， 仅 删除 当前 记录 
AdAffectGrou] 删除 满足 Filter 属性 设置 记录 
adAffectAll 删除 所 有 记录 


adAffectAllChapters 


7.5.4” 跳 转 到 指定 记录 


Recordset 对 象 提供 的 方法 和 属性 ， 既 可 以 实现 分 页 显示 的 功能 ， 也 可 以 实现 跳 转 页 面 的 功能 。 
下 面 的 例子 跳 转 到 指定 记录 ， 也 可 以 跳 转 到 第 一 条 和 最 后 一 条 记录 ， 如 图 7-23 所 示 。 


删除 所 有 子 记录 
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7-23 。 跳 转 到 指定 记录 
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该 例子 的 具体 实现 流程 如 下 。 

(1) 连接 数据 库 。 

(2) 获取 操作 类 型 。 

(3) 查询 数据 库 中 的 表 。 

(4) 依据 操作 类 型 设置 记录 指针 。 

(5) 判断 指针 是 否 到 尾 记 录 ， 是 则 转 (7)。 
(6) 显示 记录 信息 。 

(7) 结束 。 

该 例子 的 具体 实现 代码 如 下 。 


1. 连接 数据 库 
连接 数据 库 的 代码 如 下 : 


< 要 
Set conn=Server.CreateObject ("ADODB.Connection") 
Conn.Connectionstring="Provider=Microsoft .Jet.OLEDB.4.0;"& 

"Data Source="&SerVer.MapPath ("user.mdb") 
Conn.open 
$%> 


2. 获取 操作 类 型 


在 本 例 中 ， 变 量 action 标识 操作 类 型 。action 值 为 First， 表 示 将 记录 指针 移动 到 首 记 录 ; 
若 为 Last， 则 表示 将 记录 指针 移动 到 尾 记录 ; 若 为 1， 则 表示 将 记录 向 前 ， 或 向 后 移动 指定 数 
目的 指针 。 

获取 操作 类 型 的 代码 如 下 : 


< 
action=Trim (Request .QuerySstring ("action")) 
务 > 


查询 表 的 代码 如 下 : 


< 

sql="select * from Goods " ' 设 置 查 询 表 的 SQL 语句 

Set rs=Conn.Execute(sql) "执行 该 查询 并 将 结果 输出 到 rs 记录 集中 
%> 


依据 操作 类 型 显示 记录 的 代码 如 下 : 


<% 
' 下 面 输出 所 有 的 记录 ， 使 用 recordset 对 象 的 属性 判断 记录 访问 是 否 结束 
Do while not rs.Eof 
If action="First" Then 
"将 记录 指针 移动 到 首 记录 
rs.MoveFirst 


"将 action 赋值 为 空 ， 否 则 会 每 次 进入 死 循环 状态 
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action="" 

ElselIf action="Last" then 
"将 记录 指针 移动 到 尾 记录 
rs.MoveLast 
action="" 

ElseIf IsNumeric(action) Then 
"获取 用 户 输入 的 字符 并 转换 成 数字 
action=Cint (request.Form("T1") ) 
"将 记录 指针 向 前 或 向 后 移动 指定 的 数目 


rs.Move action 


action="" 
else 
"向 后 移动 一 个 记录 
rs.MoveNext 
ENd If 
If not rs.EOF Then Response.write rs("Name")&"<BR>" 
Loop 
$%> 
代码 说 明 如 下 。 


(1) 该 段 代码 使 用 了 Recordset 对 象 的 MoveFirst()、MoveLast()、MoveNext0 和 Move() 方 
法 进行 移动 记录 指针 。 

(2) MoveFirst() 方 法 把 Recordset 对 象 的 记录 指针 移动 到 第 一 条 记录 。 使 用 该 方法 时 ， 
CursorType 属性 只 能 为 adOpenForwardOnly。 语 法 格式 如 下 : 


Rs.MoveFirst 


其 中 ，rs 为 Recordset 对 象 实例 。 
(3) MoveLast() 方 法 把 Recordset 对 象 的 记录 指针 移动 到 最 后 一 条 记录 。 如 果 Recordset 对 
象 不 支持 书签 功能 ， 执 行 时 会 出 现 错误 。 语 法 格式 如 下 : 


Rs.MoveLast 


(4) MoveNext() 方 法 把 Recordset 对 象 的 记录 指针 移动 到 下 一 条 记录 。 

(5) Move() 方 法 把 记录 指针 向 前 或 者 向 后 移动 指定 的 数目 。 

(6) 使 用 Recordset 对 象 的 EOF 属性 , 判断 访问 是 否 结束 。Recordset 对 象 还 有 一 个 类 似 属 
性 BOF， 该 属性 用 来 标识 记录 指针 是 否 移动 到 首 条 记录 之 前 。 

3. 交互 界面 


交互 界面 包含 2 个 超 链 接 、1 个 文本 框 和 2 个 按钮 。 具 体 实现 代码 如 下 : 


<a href="13.3.5.asp?action=First" > 首 记 录 </a>&nbsp; &nbsp; &nbsp; &nbsp; <a 
href="13.3.5.asp?action=Last" > 尾 记 录 </a> 
<form method="POST" action="13.3.5.asp?action=1"> 
<p><input type="text" name="T]1" size="20"> 
<input type="submit" value=" 提 交 " name="B1"> 
<input type="reset" value=" 重 置 " name="B2"></p> 
</form> 
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在 图 7-23 中 的 文本 框 内 输入 2， 单 击 “ 提 交 ” 按 钮 ， 结 果 如 图 7-24 所 示 。 可 以 看 到 ， 
图 7-24 中 显示 的 记录 比 图 7-23 中 少 了 一 个 。 
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图 7-24 。 跳 转 到 指定 记录 


7.6 Command 对 象 


Command 对 象 是 ADO 对 象 模型 中 非常 重要 的 一 个 对 象 。 使 用 Command 对 象 可 以 执行 操 
作 数 据 库 资 源 的 任何 命令 ， 包 括 执行 按 行 返回 的 命令 和 非 行 返回 的 命令 。 在 SQL Server 上 ， 
Command 对 象 大 多 用 来 执行 SQL 的 存储 过 程 。 


7.6.1 Command 对 象 的 建立 与 连接 


Command 对 象 的 创建 方法 与 ADO 的 Connection 和 Recordset 对 象 的 创建 方法 相同 。 具 体 
操作 步骤 如 下 。 

(1) 创建 Command 对 象 。 

(2) 建立 与 数据 库 的 连接 。 

(3) 设置 Command 对 象 的 类 型 。 

(4) 设置 执行 命令 。 

(5) 执行 命令 。 

1. 创建 Command 对 象 

创建 Command 对 象 的 语法 格式 如 下 : 

Set cmd=Server.CreateObjcet ("ADODB.Command") 

其 中 ，cmd 为 创建 的 Command 对 象 实例 。 

2. 建立 与 数据 库 的 连接 


Command 对 象 与 数据 库 的 连接 可 以 使 用 Connection 对 象 ， 也 可 以 不 创建 Connection 对 象 
而 直接 使 用 Command 对 象 。 通 过 Command 对 象 的 属性 Activeconnection， 设 置 Command 对 
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象 与 数据 库 的 连接 关系 。 

下 面 使 用 属性 Activeconnection, 设置 Command 对 象 与 Connection 对 象 的 连接 关系 。 代 码 
如 下 : 

<% 

' 创 建 Command 对 象 

Set CMD=Server.CreateObject ("ADODB .Command") 

"创建 connection 对 象 

Set conn=Server.CreateObject ("ADODB.Connection") 

Conn .ConnectionString="Provider=Microsoft.Jet.OLEDB.4.07"& 

"Data Source="&SerVer.MapPath("oa.mqb") 

Conn .Open "建立 与 数据 库 的 连接 

"使 用 Activeconnection 属性 建立 与 数据 库 的 连接 

CMD.ActiveConnection=Conn 

$%> 

代码 说 明 : 属性 ActiveConnection 可 以 设置 或 者 获取 定义 的 连接 字符 串 ， 或 Connection 对 
象 字符 串 。 该 对 象 为 可 读 可 写 。 

还 可 以 使 用 下 面 的 方法 建立 Command 对 象 与 数据 库 的 连接 关系 。 具 体 代码 如 下 : 

<% 

Set CMD=Server.CreateObject ("ADODB.Command") 

CMD.ActiveConnection="DSN=Test;UID=sa; PWD=;" 

多 > 


3. 设置 执行 命令 

使 用 CommandText 属性 可 以 为 Command 对 象 设置 执行 命令 。 设 置 CommandText 属性 的 
语法 格式 如 下 : 

Set cmd.CommandText=strCommand 

其 中 ，cmd 为 建立 的 Command 对 象 的 实例 ，strCommand 为 设置 的 执行 命令 字符 串 。 

设置 Command 对 象 执 行 命令 的 代码 如 下 : 


cmd.CommandText="select * from User info " 


4. 设置 Command 对 象 的 类 型 


使 用 Command 对 象 的 属性 CommandType 可 以 设置 Command 对 象 的 类 型 。 使 用 
CommandType 属性 可 以 优化 数据 库 命令 的 执行 。 该 属性 的 使 用 语法 格式 如 下 : 

Cmd.CcommandType=CommandTypeEnum 

其 中 ，CommandTypeEnum 为 CommandType 属性 的 常数 ， 具 体 如 表 7-19 所 示 。 

















表 7-19 CommandTypeEnum 的 值 
常 量 说 明 
AdCmdText 将 CommandText 作为 文本 化 的 命令 或 存储 过 程 进行 执行 
AdCmdTable 将 CommandText 作为 记录 表 名 称 进行 执行 








AdCmdStoredProc 将 CommandText 作为 存储 过 程 名 进行 执行 


M/k) 





常 量 说 明 





A | 指示 CommandText 为 不 返回 行 的 命令 或 存储 过 程 





AdCmdUnknown 默认 值 ， 指 示 CommandText 属性 中 的 命令 类 型 未 知 


5. 执行 命令 

使 用 Command 对 象 的 Execute() 方 法 可 以 执行 在 CommandText 属性 中 指定 的 查询 ， 
法 可 以 返回 记录 集 。 

该 方法 的 执行 语法 格式 如 下 : 

Set recordset = cmd.Execute [RecordsAffected[, Parameters[, Options]]] 

语法 格式 说 明 如 下 。 

(1) cmd 为 Command 对 象 实例 。 


(2) Execute() 的 参数 如 表 7-20 所 示 。Execute() 方 法 中 的 参数 Options 可 以 使 用 AND， 





OR 对 命令 进行 组 合 。 


表 7-20 ”Execute() 的 参数 


RecordsAffected ”| 可 选项 ， 返 回 操作 所 影响 的 记录 数目 


Parameters 可 选项 ， 表 示 SQL 语句 参数 列表 ， 具 体 值 见 表 7-21 
可 选项 ， 指 示 如 何 执 行 CommandText 属性 中 的 命令 。 参 数 可 以 参考 表 7-19 





该 方 


或 





(3) Execute() 方 法 的 参数 Parameters 的 具体 值 如 表 7-21 所 示 。 


表 7-21 参数 Parameters 的 值 


E13 
二 


adParamUnknown 
adParamInput 
adParamOutput 
adParamInputOutput 





adParamReturnValue 


下 面 是 使 用 Command 对 象 进行 查询 的 例子 。 代 码 如 下 : 


< 当 

Set conn=Server.CreateObject ("ADODB.Connection") 

Conn.Connectionstring="Provider=Microsoft .Jet.OLEDB.4.0;"& 
"Data Source="&gServer.MapPath ("oa.mdb") 





Conn .Open 

Set cmd=Server.CreateObject ("ADODB .Command") 
cmd.ActiveConnection=Conn 
cmd.CommandText="select * from User info " 


"执行 SQL 查询 


NN 


[a 
ee 
第 7 章 ADO 数据库 访问 加 = 


Set rs=cmd.Execute 
名 > 


7.6.2 ”执行 存储 过 程 


存储 过 程 就 是 存储 在 数据 库 中 预先 定义 的 一 个 或 多 个 SQL 语句 命令 。 通 过 创建 和 调用 存 
储 过 程 ， 可 以 避免 在 ASP 代码 中 使 用 SQL 字符 串 。 这 样 做 有 以 下 几 点 优点 。 
(1) 提高 效率 。 存 储 过 程 被 数据 库 编译 过 ， 可 以 大 大 减少 同 数据 库 的 交互 次 数 ， 执 行 速度 
非常 快 。 
(2) 提高 安全 性 。 将 SQL 语句 从 ASP 代码 分 开 ， 即 使 代码 被 窃取 ， 也 不 会 导致 数据 库 结 
(3) 易于 维护 。 将 SQL 语句 从 ASP 代码 分 开 ， 使 ASP 代码 更 易于 维护 。 
(4) 提供 SQL 语句 的 重用 性 。 存 储 过 程 可 以 被 多 次 、 多 个 文件 调用 ， 大 大 增加 了 SQL 语 
句 的 重用 性 。 
SQL Server 存储 过 程 是 可 以 使 用 Transact-SQL 语句 CREATE PROCEDURE 创建 的 ， 也 
可 以 使 用 存储 过 程 创建 向 导 创 建 。 
下 面 列举 的 是 所 有 商品 价格 大 于 100 元 的 商品 的 存储 过 程 的 例子 。 具 体 代码 如 下 : 
User Database Name 
Go 
Create Proc List Goods 
AS 
Select 六 
From Goods 


Where Price>=100 
Go 


代码 说 明 如 下 。 

(1) User Database Name 为 打开 Database Name 数据 库 。 

(2) Create Proc 语句 在 当前 数据 库 中 创建 存储 过 程 。 

(3) 要 执行 Create Proc 语句 ， 必 须 为 系统 管理 员 用 户 、 数 据 库 所 有 者 用 户 , 或 者 被 授予 创 
建 存储 过 程 的 用 户 。 

在 ASP 中 使 用 Command 对 象 调用 存储 过 程 的 代码 如 下 : 


< 

Set conn=Server.CreateObject ("ADODB.Connection") 

Conn.Connectionstring="Provider=Microsoft .Jet.OLEDB.4.0;"& 
"Data Source="&gServer.MapPath ("oa.mdb") 

Conn .Open 

Set cmd=Server.CreateObject ("ADODB.Command") 

cmd.ActiveConnection=Conn 

"设置 commandText 的 值 为 存储 过 程 的 名 称 

cmd.CommandText=" List Goods" 

cmd.CommandType=adCcmdstoreProc 

"执行 存储 过 程 

cmd.Execute ,,AdCcmdTable 

%> 


/ak 
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:6:3 


存储 过 程 传递 的 参数 





7.6.2 节 介绍 的 存储 过 程 , 可 以 查 取 所 有 价格 大 于 100 元 的 商品 。 如 果 查 询 其 他 价格 段 的 商 
品 ， 就 要 修改 该 存储 过 程 才能 实现 ， 这 样 未 免 有 些 太 麻 烦 。 这 个 问题 的 解决 办 法 ， 就 是 使 用 带 
参数 的 存储 过 程 ， 实 现 这 个 功能 。 带 有 参数 的 存储 过 程 扩展 了 存储 过 程 的 功能 ， 可 以 把 参数 信 
息 传 入 存储 过 程 ， 或 者 从 存储 过 程 中 输出 。 带 有 参数 的 存储 过 程 ， 可 以 让 用 户 使 用 同一 个 存储 
过 程 多 次 搜索 数据 库 ， 避 免 了 为 不 同 的 值 创建 不 同 的 存储 过 程 。 

下 面 是 创建 一 个 带 有 参数 的 存储 过 程 的 代码 : 


< 


User Database Name 


Go 


Create Proc List Goods 


@Price int =100 


AS 
Select * 
From Goods 
Where Price>=@Price 
Go 
$%> 
代码 说 明 如 下 。 
(1) 这 段 存 储 过 程 定义 了 一 个 输入 参数 Price， 该 参数 的 类 型 为 int， 默 认 值 为 100。 
(2) 定义 接收 输入 参数 的 存储 过 程 ， 需 要 在 Create Proc 语句 中 声明 一 个 或 多 个 变量 作为 
参数 。 
(3) 变量 必须 以 符号 @ 开 始 。 
(4) 一 个 存储 过 程 最 多 可 有 255 个 参数 。 
(5) 参数 是 存储 过 程 局 部 的 ， 不 同 的 存储 过 程 可 以 使 用 相同 的 参数 名 。 
(6) 声明 参数 的 语法 格式 如 下 : 


@parameter type [=default] 


其 中 ，parameter 为 参数 的 名 字 ; type 为 参数 的 类 型 ，default 为 可 选项 ， 表 示 定 义 的 参数 默 
认 值 。 参 数 的 默认 值 必须 为 常量 或 者 NULL。 

前 面 小 节 介 绍 了 使 用 Command 对 象 调 用 存储 过 程 的 方法 。 如 果 使 用 Command 对 象 调用 
带 有 参数 的 存储 过 程 ， 需 要 使 用 集合 Parameter。Parameter 集合 包含 存储 过 程 每 个 参数 的 
了 Parameter 对 象 。 使 用 Parameter 对 象 可 以 获取 有 关 Command 对 象 中 指定 的 存储 过 程 的 参数 信 
息 。Parameter 对 象 在 使 用 前 需要 创建 。 创 建 Parameter 对 象 的 语法 格式 如 下 : 


Set parameter=cmd.CreateParameter (Name[,TYype] [,Direction] [,Size]l[,Value]) 


语法 格式 说 明 如 下 。 
(1) CreateParameter() 方 法 使 用 指定 的 名 称 、 参 数 类 型 等 信息 创建 新 的 Parameter 对 象 。 
(2) CreateParameter() 方 法 的 参数 如 表 7-22 所 示 。 


NN 
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表 7-22 CreateParameter() 方 法 的 参数 



































参 数 说 明 
Name 可 选项 ，Parameter 集合 中 的 参数 名 
Type 可 选项 ， 参 数 的 数据 类 型 ， 具 体 值 见 表 7-23 
Size 参数 长 度 ， 可 以 省 略 
Value 参数 的 值 
Direction ”| 参数 的 方向 ， 指 明 是 输入 参数 、 输 出 参数 还 是 输出 参数 又 输入 参数 ， 具 体 见 表 7-21 
表 7-23 Type 常量 
常 量 说 明 
AdArray 数组 
Adbinary - 进 制 什 
AdBoolean 布尔 型 值 
Adchar 字符 串 值 
AdVarChar 字符 串 值 
AdDate 日 期 值 
AdInteger 带 符号 型 整数 
AdNumeric 数字 
AdsmallInt 2 字 节 带 符号 整 型 
AdDouble 
Adsingle 
Ademp 未 指定 值 
在 ASP 中 使 用 Command 对 象 调用 带 有 参数 的 存储 过 程 的 代码 如 下 ; 
<% 


Set conn=Server.CreateObject ("ADODB.Connection") 

Conn.Connectionstring="Provider=Microsoft.Jet.OLEDB.4.0;"& 
"Data Source="&Server.MapPath ("oa.mdb") 

Conn.Oopen 

Set cmd=Server.CreateObject ("ADODB.Command") 

cmd.ActiveConnection=Conn 

' 创 建 Parameter 集合 。 该 集合 设置 参数 的 值 为 200 

Set Param=cmd.CreateParameter ("@Price", AdIinteger, adParamInputOoutput, 12, 200) 

' 将 创建 的 Parameter 集合 添加 到 Parameters 集合 中 

cmd.Parameters.Append Param 

"设置 执行 的 存储 过 程 

cmd.CommandText=" List Goods" 

cmd.CommandType=adCcmdSstoreProc 

cmd .Execute 

各 > 


代码 说 明 : Parameters 集合 的 Append0 方 法 ， 可 以 将 对 象 增加 到 集合 Parameters 中 。 


/ak 





7.7 ADO 应 用 实例 一 一 图 片 信息 的 数据 库存 储 





数据 库 中 不 但 可 以 保存 字符 串 、 数 值 或 日 期 时 间 等 类 型 的 数值 ， 也 可 以 保存 图 片 。 下 面 的 
例子 就 是 把 用 户 指定 图 片上 传 到 数据 库 中 的 特定 字段 。 

如 果 需 要 使 用 数据 库 保存 图 片 ， 需 要 把 保存 图 片 的 字段 设置 成 OLE 字段 。 下 面 是 把 图 片 
上 传 到 Access 数据 库 的 例子 。 


7.7.1 上 传 界面 


上 传 界面 由 一 个 表单 构成 ， 该 表单 有 1 个 浏览 按钮 和 1 个 提交 按钮 ， 如 图 7-25 所 示 。 
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上 传 界面 
文件 上 传 | 浏览 .。 | | 提交 
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图 7-25 图 片 信息 的 数据 库存 储 
上 传 界面 的 代码 如 下 : 


<html> 

<head> 

<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> 
<title></title> 

</head> 

<body leftmargin="0" topmargin="0"> 

<form name="upform" method="post" action="test.asp" 
enctype="multipart/form-data" > 

<input type="hidden" name="act" value="upload"> 

<input type="hidden" name="filepath" value="images"> 

<table width="100%" border="0" cellspacing="0" bordercolordark="#CCCCCC™" 
bordercolorlight="#000000"> 

<tr><td > 

<p style="margin-top: 0; margin-bottom: 0" align="center"> </p> 

<p style="margin-top: 0; margin-bottom: 0" align="center"> 

<font size="5" color="#0000FF"> 上 传 界面 </font></p> 

<p style="margin-top: 0; margin-bottom: 0" align="center"> 文 件 上 传 
<input type="file" name="filename" style="width:229; height:23" class="txl" 
value=""> 

<input type="submit" name="Submit" value=" 提 交 " class="tx"> 

</p> 

<p style="margin-top: 0; margin-bottom: 0" align="center"></td></tr> 
</table></form> 
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</body> 
</html> 


7.7.2 ”获取 上 传 图 片 数据 


把 上 传 图 片 保存 到 数据 库 的 方法 与 上 传 图 片 的 方法 相似 。 上 传 图 片 的 方法 在 第 6 章 已 经 介 
绍 过 了 ， 这 里 就 不 再 袭 述 。 
获取 上 传 图 片 的 代码 如 下 : 


< 要 

"下 面 是 获取 图 片 数 据 的 代码 ， 详 细 介 绍 可 以 参考 第 6 章 
formsize=request.totalbytes ' 求 出 整个 数据 的 大 小 
formdata=request .binaryread (formsize) ' 读 取 整 个 二 进 制 数据 
return=chrB (13) gchrB (10) 

divider=leftB (formdata, clng (instrb (formdata, return)) -1) 
datastart=instrb (lenb (divider), formdata, divider) 


datastartl=instrb (datastart+1, formdata, divider) 
datastart=instrb (datastartl1+1, formdata, returngreturn) +3 
set tempStream = Server.CreateObject ("adodb.stream") 
tempstream.Type = 1 

tempStream.Mode =3 

tempStream.Open 

st1.Position=datastart1 

st1.CopyTo tempStream ,datastart-datastartl 
tempstream.Position = 0 

tempStream.TYpe = 2 

tempStream.Charset ="gb2312" 

FilePath= tempStream.ReadText 

" 求 出 文件 的 名 称 ， 以 此 存储 该 图 片 的 文件 类 型 

Filename=mid (FilePath, instr (FilePath, "filename=")+10) 
ext=mid (Filename, instr (Filename,"."),4) 
dataend=instrb(datastart+1, formdata,divider) -datastart ' 求 出 图 片 的 长 度 
"获取 图 片 的 所 有 二 进 制 数据 
mydata=midb (formdata, datastart, dataend) 

务 > 


7.7.3 保存 到 数据 库 


保存 图 片 到 数据 库 的 实现 流程 如 下 。 

(1) 建立 与 数据 库 的 连接 。 

(2) 建立 Recordset 对 象 。 

(3) 打开 数据 库 中 指定 的 表 。 

(4) 增加 新 的 记录 。 

(5) 把 图 片 二 进 制 数据 存 入 指定 的 字段 。 
(6) 更 新 该 记录 。 

(7) 断 开 与 数据 库 的 连接 。 














M/E 
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(8) 结束 。 
保存 图 片 到 数据 库 的 代码 如 下 : 


< 村 

Set Conn= Server.CreateObject ("ADODB.Connection") 

Conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.07"& 
"Data Source="&Server.MapPath ("img.mdb") 

Conn .Open 

' 建 立 Recordset 对 象 以 便 保存 图 片 数 据 

Set rs=Server.CreateObject ("ADODB.Recordset") 

"如 果 打 开 指 定 的 表 需 要 使 用 " [] "把 表 名 称 括 起 来 ， 以 告诉 系统 方 括号 之 间 为 表 名 ， 不 是 Sql 语句 

TableName=" [image]" 

Frs.Open TableName,Conn,1,3 

rs.AddNew "增加 新 记录 

rs ("IMG") .Appendchunk mydata ' 把 图 片 数据 存 入 到 字段 img 中 

rs("FilePath")=Filename 

rs ("FileName")=Name 

rs.Update ' 更 新 该 字段 

set rs=nothing 

set Conn=Nothing 

$> 


代码 说 明 如 下 。 

(1) AppendChunk() 方 法 将 大 型 文本 、 二 进 制 数 据 写 入 到 指定 的 Field 对 象 或 者 Parameter 
对 象 中 。 该 方法 的 语法 格式 如 下 ; 

OBJ.AppendChunk Data 

其 中 ，OBJ 为 Field 对 象 或 者 Parameter 对 象 ，Data 为 待 写 入 的 数据 。 

(2) Fields 集合 为 Recordset 对 象 集 中 的 一 行 ，Field 对 象 为 Recordset 对 象 集中 的 一 列 。 在 
本 例子 中 ，rs("IMG") 就 是 一 个 Field 对 象 ， 因 此 ， 可 以 调用 AppendChunk() 方 法 。 


7.7.4 读 取 数 据 库 中 的 图 像 


读 取 数 据 库 中 的 图 像 数 据 由 文件 GetPhot.asp 实现 。 该 文件 把 获取 图 像 数 据 的 代码 整合 成 
一 个 过 程 DisplayBMP(ID)。 该 文件 的 代码 如 下 : 


< 各 

ID=Request ("FileName") 

Call DisplayBMP (4) ' 调 用 函数 输出 图 像 数 据 

' 该 函数 用 来 获取 图 像 的 数据 

Sub DisplayBMP (ID) 
ID=Cint (ID) ' 获 取 图 像 在 数据 库 中 存储 的 序号 
' 连 接 数 据 库 


Set Conn= Server.CreateObject ("ADODB .Connection") 

Conn.Connectionstring="Provider=Microsoft.Jet .OLEDB.4.0;"& 
"Data Source="&Server.MapPath ("img.mdb") 

Conn .OpPen 

"查询 指定 的 记录 并 获取 该 记录 的 图 像 值 


Set Frs=Conn.-Execute ("select * from [image] where id="&ID) 


NN 
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"获取 图 像 数据 的 大 小 ， 以 便 输 出 指定 大 小 的 数据 
FSize = rs("img") .ActualSize 
Response.Buffer = true' 设 置 缓存 
extPath=Ucase (mid (FilePath,n+1)) 
Response.Expires = -1 
"输出 类 型 为 图 像 类 型 
Response.ContentType = "image/"&extPath 
"输出 图 像 的 数据 
Response.BinaryWrite rs("img") .getChunk (FSize ) 
Response.end 

End Sub 

$%> 


代码 说 明 如 下 。 

(1) ActualSize 属性 为 Field 对 象 的 属性 ， 用 来 指定 字段 的 值 的 实际 大 小 。 

(2) getChunk() 方 法 为 Field 对 象 的 方法 , 用 来 获取 大 型 文本 或 二 进 制 数据 的 全 部 或 部 分 内 
容 。 该 方法 的 语法 格式 如 下 : 

Value= Field.GetChunk( Size ) 


其 中 ，Field 为 Field 对 象 ，Size 为 获取 数据 的 大 小 ，Value 为 获取 的 数据 。 
7.7.5 显示 图 像 


显示 图 像 的 时 候 把 GetPhoto.asp 文件 输出 的 内 容 作 为 Img 标记 的 源 文件 ， 这 样 就 可 以 在 
Web 页 中 显示 图 像 了 。 

显示 图 像 的 具体 代码 如 下 : 

<html> 

<head> 

<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> 

<title> </title> 

</head> 

<body> 

<img src="GetPhoto.asp?id=<% =Trim(Request.Form("ID"))%>" > 

</body> 

</html> 


7.8 小 结 


本 章 介绍 了 ADO 的 对 象 模型 ， 以 及 使 用 ADO 对 象 操作 数据 库 的 方法 。 本 章 的 重点 是 连 
接 数据 库 的 方法 和 使 用 Recordset 对 象 操作 数据 库 的 方法 。 不 同 的 网 站 可 能 使 用 不 同 的 数据 库 ， 
如 : 有 的 使 用 Access， 有 的 网 站 使 用 Excel 当 作 网 站 的 数据 源 。 因 此 ， 需 要 根据 不 同 的 数据 源 ， 
设置 不 同 的 连接 方式 。 当 连接 数据 库 后 ， 可 以 使 用 Recordset 对 象 或 者 Command 对 象 添加 、 更 
新 和 删除 数据 库 中 的 记录 ， 这 也 是 本 章 介 绍 的 重点 。 但 是 如 何 高 效 、 快 速 地 操作 数据 库 中 的 记 


录 是 一 大 难点 ， 需 要 开发 者 在 实践 中 不 断 摸索 。 
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内容 摘 要 1awstsct 


组 件 是 在 服务 器 上 安装 注册 的 ActiveX 控件 。ASP 能 使 用 的 组 件 包括 其 内 置 组 件 ， 用 VB、 
VC、Java 等 语言 开发 的 ActiveX 组 件 , 以 及 从 开发 商 那里 购买 或 从 网 上 免费 下 载 的 ActiveX 组 
件 。ASP 支持 广泛 的 ActiveX 组 件 ， 具 有 很 强 的 可 扩展 性 ， 可 实现 很 多 种 功能 。 本 章 介 绍 ASP 
中 常用 的 内 置 组 件 的 使 用 方法 。 


/学 习 目 标 1oweciv 


掌握 文件 存 取 组 件 的 基本 用 法 。 
掌握 广告 轮 显 组 件 的 基本 用 法 。 
掌握 浏览 器 兼容 组 件 的 基本 用 法 
掌握 文件 超级 链接 组 件 的 基本 用 法 。 
掌握 计数 器 组 件 的 基本 用 法 。 


8.1 ASP 的 内 置 组 件 简介 


ASP 的 内 置 组 件 是 指 安装 ASP 时 自动 注册 到 ASP Web 服务 器 上 的 组 件 。 它 一 般 是 一 
些 .exe、.dll 或 者 .ocx 程序 文件 。 该 文件 包含 执行 某 项 或 一 组 任务 的 代码 。 组 件 可 以 执行 公用 任 
务 ， 实 现代 码 的 重用 。 并 且 使 用 组 件 就 不 必 自 己 去 创建 执行 这 些 任 务 的 代码 了 ， 而 只 需要 了 解 
如 何 访问 和 应 用 这 些 组 件 对 象 即 可 。 在 ASP 中 常见 的 内 置 组 件 如 表 8-1 所 示 。 


表 8-1 ASP 的 内 置 组 件 















































组 件 名 称 中 文 名 称 主要 作用 
AdRotator 广告 轮 显 组 件 随机 显示 广告 图 像 
ContentRotator 内 容 轮 显 组 件 随机 显示 Web 页 面 
ContentLinking 内 容 链 接 组 件 网 页 导航 
Counter 计数 器 组 件 统计 页 面 访问 次 数 、 广 告 点 击 次 数 等 
PageCounter 页 面 计数 器 组 件 仅 用 来 统计 页 面 访问 次 数 
BrowserCapabilities 浏览 器 信息 组 件 获取 客户 浏览 器 信息 
Dictionary 数据 目录 组 件 保存 数据 
FileAccess 文件 访问 组 件 访问 文件 系统 ， 创 建 显示 文件 ， 读 取 驱 动 器 信息 等 
DatabaseAccess 数据 库 访 问 组 件 在 应 用 程序 中 访问 数据 库 
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由 于 组 件 是 包含 在 动态 链接 库 (.d0]) 或 可 执行 文件 Cexe) 中 的 可 执行 代码 。 组 件 可 以 提供 一 
个 或 多 个 对 象 ， 以 及 对 象 的 方法 和 属性 。 要 使 用 组 件 提供 的 对 象 ， 首 先 要 创建 对 象 的 实例 ， 并 
将 这 个 新 的 实例 分 配 变量 名 。 创 建 组 件 对 象 的 方法 主要 有 两 种 。 

(1) 首先 使 用 ASP 的 内 置 组 件 必 须 先 使 用 Server 内 置 对 象 的 CreateObject 方 法 创建 该 组 件 
的 一 个 实例 (变量 )。 然 后 使 用 脚本 语言 的 变量 分 配 指令 为 对 象 实例 命名 。 创 建 对 象 实例 时 ， 必 
须 提供 实例 的 注册 名 称 (PROGID)。 如 下 要 创建 一 个 NextLink 对 象 的 实例 : 


<%set NextLink=Server.CreateObject ("MSWC.NextLink" ) > 


此 对 象 的 PROGID 是 MSWC NextLink。 必 须 注意 的 是 ， 必 须 使 用 ASP 的 CreateObject 方 
法 来 创建 对 象 实例 ， 和 否则 ASP 将 无 法 跟踪 脚本 中 对 象 的 使 用 。 

(2) 使 用 HIML 的 <OBJECT> 标 记 来 创建 对 象 实例 ， 但 必须 为 Runat 属性 提供 服务 器 值 。 
同时 也 要 为 将 在 脚本 语言 中 使 用 的 变量 名 提供 ID 属性 组 。 使 用 注册 名 (PROGID) 或 者 注册 号 
(CLSID) 可 以 识别 该 对 象 。 

例如 ， 使 用 注册 名 (PROGID) 创 建 NextLink 对 象 : 

<OBJECT Runat=Server ID=NextLink PROGID="MSWC.NextLink"></OBJECT> 

还 可 以 在 Global.asa 文件 中 使 用 上 述 方法 创建 一 个 组 件 的 实例 (变量 )。 有 了 对 象 的 实例 后 ， 
就 可 以 把 它 当 ASP 内 置 对 象 来 处 理 。 可 以 引用 该 组 件 的 属性 、 方 法 、 集 合 来 实现 组 件 提供 的 
功能 。 

下 面具 体 介绍 各 种 常用 组 件 的 使 用 实例 。 


8.2 文件 存 取 组 件 


文件 存 取 组 件 FileAccess 提供 了 可 以 用 来 访问 服务 器 文件 系统 的 方法 和 属性 。 利 用 该 组 件 
可 以 实现 对 服务 器 文件 的 控制 。 

FileAccess 组 件 实际 上 表示 了 一 个 对 象 集 。 它 可 以 用 于 创建 、 改 编 、 移 动 和 删除 文件 夹 或 
文件 ， 还 可 以 获取 文件 夹 或 文件 的 各 种 信息 。FileAccess 组 件 中 的 对 象 如 表 8-2 所 示 。 


表 8-2 ”FileAccess 组 件 中 的 对 象 

















对 象 说 明 
FileSystemObject 对 象 | 包含 了 操作 文件 系统 的 基本 方法 
TextStream 对 象 用 于 读 、 写 一 个 文件 
允许 创建 、 删 除 或 移动 文件 ， 并 向 系统 查询 文件 的 名 称 或 路 径 等 
Folder 对 象 允许 创建 、 删 除 或 移动 文件 来， 并 向 系统 查询 文件 夹 的 名 称 或 路 径 等 
Drive 对 象 表示 一 个 磁盘 驱动 器 或 网 络 共享 


在 上 述 对 象 中 ，FileSystemObject 对 象 提供 了 一 套用 于 创建 、 删 除 、 收 集 相 关 信息 ， 以 及 
通常 的 操作 驱动 器 、 文 件 夹 和 文件 的 方法 。 为 简单 起 见 ， 本 章 主要 介绍 使 用 FileSystemObject 
对 象 管理 文件 来、 文件 ， 使 用 TextStream 对 象 读 、 写 文件 。 


M/E 
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CreateTextFile(Filename, 


Overwrite,Unicode) 


DeleteFile (Path,Force) 


DeleteFolder (Path,Force) 


DriveExists(Path 
FileExists(Path, 


8.2.1 FileSystemObject 对 象 
FileSystemObject 对 象 可 以 用 来 存 取 Web 服务 器 上 的 文件 和 文件 夹 , 其 方法 及 说 明 如 表 8-3 
所 示 。 
表 8-3 FileSystemObject 对 象 的 方法 
方 法 说 明 
BuildPath(Path,Name) 将 Name 加 到 Path 后 面 ， 必 要 时 会 自动 修正 路 径 符号 Q()。 例 如 
ObjFSO.BuildPath(server .Mappath(F”),“aasp”) 会 返回 cinetpubWwwwroot\ 
F\a.asp 路 径 
CopyFile 将 Source 指定 的 文件 复制 到 Destination。 若 Overwrite 的 值 为 Trme 表 
Source,Destination,Overwrite) | 示 落 闵 Destination 的 已 有 同名 文件 
CopyFolderSource 将 Source 指定 的 文件 夹 复制 到 Destination。 若 Overwrite 的 值 为 True 
Destination.OVverwrite 表示 覆盖 Destination 的 已 有 同名 文件 夹 
CreateFolder(Foldername. 建立 Foldername 文件 夹 ， 并 返回 一 个 Folder 对 象 实例 


建立 一 个 名 称 为 Filename 的 文本 文件 , 并 返回 一 个 TextStream 对 象 实 
例 ; Overwrite 为 布尔 值 , 若 值 为 True, 表示 可 缆 盖 ， 否 则 为 不 可 町 盖 ， 
默认 值 皆 为 False; Unicode 为 布尔 值 ， 若 值 为 True， 表 示 为 Unicode 
文本 文件 ， 否 则 为 ASCII 文本 文件 ， 默 认 值 皆 为 False 

删除 Path 指定 的 文件 。Force 为 布尔 值 ， 若 值 为 True， 表 示 删 除 只 读 
文件 ， 默 认 值 为 False( 不 删除 只 读 文件 ) 

删除 Path 指定 的 文件 夹 。Force 为 布尔 值 ， 若 值 为 True， 表 示 删 除 只 
读 文 件 夹 ， 默 认 值 为 False( 不 删除 只 读 文件 夹 ) 

若 Path 指定 的 磁盘 存在 ， 返 回 True， 否 则 返回 False 

若 Path 指定 的 文件 在 在， 返回 Tme， 否 则 返回 False 



































FolderExists(Path) 若 Path 指定 的 文件 夹 存 在 ， 返 回 Tme， 否 则 返回 False 
GetDrive(Path) 返回 包含 Path 的 磁盘 ， 返 回 值 为 一 个 Drive 对 象 实例 
GetDriveName(Path) 返回 包含 Path 的 磁盘 名 称 ， 返 回 值 为 一 个 字符 串 
GetExtensionName(Path) 返回 Path 指定 的 文件 的 扩展 名 ， 返 回 值 为 一 个 字符 串 
GetFile(Path 返回 Path 指定 的 文件 ， 返 回 值 为 一 个 File 对 象 实例 


GetFileName(Path 


返回 Path 最 后 的 文件 名 称 或 文件 夹 名 称 











GetFolder(Path) 返回 Path 指定 的 文件 来， 返回 值 为 一 个 Folder 对 象 实例 

GetParentFolderName(Path) 返回 Path 的 父 文件 夹 名称 ， 返 回 值 为 一 个 字符 串 

GetSpecialFolder(Name) 返回 特殊 文件 夹 的 路 径 ，Name 可 以 是 WindowsFolder、SystemFolder 
或 TemporaryFolder， 分 表 代表 Windows 文件 夹 、 系 统 文件 夹 及 存放 
临时 文件 的 文件 夹 

MoveFile 将 Source 指定 的 文件 移动 到 Destination 中 


Source.Destination 
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续 表 
方 法 说 明 
MoveFolder 将 Source 指定 的 文件 夹 移动 到 Destination 中 
(Source,Destination) 
OpenTextFile(Filename, 打开 Filename 指定 的 文本 文件 ， 并 返回 一 个 TextStream 对 象 实例 ; 


Tomode,Create,Format) Iomode 为 文本 文件 的 打开 方式 ，1 表示 只 读 ，2 表示 可 写 ，3 表示 附加 
到 后 面 ; Create 表示 当 文 本 文件 不 存在 时 ， 是 否 要 建立 ，Format 为 文 
本 文件 的 格式 ，-1 表示 Unicode 文本 文件 ，0 表示 ASCII 文本 文件 ， 
-2 表示 采用 系统 默认 值 


下 面 介 绍 如 何 利用 FileSystemObject 对 象 管理 文件 和 文件 夹 。 
1. 创建 文本 文件 

创建 文本 文件 的 方法 有 两 种 。 

(1) CreateTextFile 方法 。 

其 语法 格式 如 下 : 

FSob]j .CreateTextFile (filename [,overwrite[,format]]) 


创建 文件 并 返回 TextStream 对 象 ， 该 对 象 用 于 读 写 创建 的 文件 。CreateTextFile 方法 中 所 
含 的 参数 可 以 参照 表 8-3 中 的 介绍 。 

假设 当前 目录 为 E\aspDream\asp8。 在 程序 同 目录 下 ,创建 一 个 名 为 filel 的 文本 文件 的 代 
人 码 如 下 : 

< 条 

Set MyFSOb]j=Server.Createobject ("Scripting.FileSystemobject") 

"创建 MYESobj 对 象 

Set MyTextFile=MYFSOb]j .CreateTextFile ("filel.txt"n,true) 

"创建 文件 

%> 

运行 程序 后 ， 可 以 查看 在 E:\aspDream\asp8 目录 下 ， 创 建 了 一 个 名 为 filel 的 文本 文件 。 

(2) OpenTextFile 方法 。 

其 语法 格式 如 下 : 


FSobj .OpenTextFile (filename[,iomode[,createl[, format]]]) 


打开 指定 的 文件 ， 如 果 指 定 的 文件 不 存在 ， 则 创建 该 TextStream 对 象 。OpenTextFile 方法 
中 所 含 的 参数 可 以 参照 表 8-3 中 的 介绍 。 

假设 当前 目录 为 E:\aspDreamvasp8。 使 用 OpenTextFile 方法 打开 file2.txt。 如 果 该 文本 文件 
不 存在 ， 则 使 用 OpenTextFile 可 以 创建 file2.txt 文件 。 上 有 具体 代码 如 下 : 


<% 

Set MyFSObj=Server.Createobject ("Scripting.FileSystemOobject") 
"创建 MyFSObj 对 象 

Set MyTextFEile=MYyYFSOb]j .OpenTextFile("file2.txt",2,true,—-2) 
"打开 或 创建 文件 

各 > 





/eke 
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上 述 代 码 表示 ， 以 可 读 写 的 方式 ， 采 用 系统 默认 格式 打开 文件 file2.txt。 如 果 文 件 不 存在 
时 ， 进 行 创 建 。 


2. 拷贝 、 移 动 和 删除 文件 


移动 文件 的 方法 是 MoveFile, 删除 文件 的 方法 是 DeleteFile, 复制 文件 的 方法 是 CopyFile。 
其 中 所 含 参数 的 介绍 如 表 8-3 所 示 。 

在 当前 目录 E:\aspDream\asp8 下 ， 复 制 文件 file2.txt， 重 命名 为 fle3.txt。 再 把 fle3.txt 移动 
到 卫 盘 根 目录 中 ， 并 且 把 file2.txt 删除 。 上 述 过 程 的 具体 代码 如 下 : 


< 要 

Set MyFSObj=Server.CreateObject ("Scripting.FileSystemobject") 
Set MyTextFile=MYFSOb]j .CreateTextFile ("file2.txt",true) 
MyTextFEile.write("Hello,everyonel!") 

"向 文件 书写 数据 

MyTextFile.close 

"关闭 文件 

MyTextFile.CopyFile "file2.txt" "file3.txt" 

"复制 文件 

MyTextFile.MoveFile "file3.txt" "D:\" 

' 移 动 文件 

MyTextFile.DeleteFile "file2.txt" 

"删除 文件 

和 > 


3. 文件 夹 的 创建 和 删除 


创建 文件 夹 的 方法 是 CreateFolder， 删 除 文件 夹 的 方法 是 DeleteFolder。 其 中 参数 的 使 用 参 
照 表 8-3 中 的 介绍 。 
下 面 是 一 个 处 理 文件 夹 的 简单 实例 。 代 码 如 下 : 


< 条 

Set MyFSObj=Server.CreatObject ("Scripting.FileSystemobject") 
"创建 MYESobj 对 象 
Path=Server.MapPath('\test\') 

' 路 径 映射 为 绝对 路 径 

If FolderExists (Path)=false then 
"测试 文件 夹 存在 与 否 

Set MyFSObj .CreateFolder (Path) 

' 创 建文 件 夹 

End If 

Set MyFolder=MyFSOb]j .GetFolder (Path) 
' 创 建 Folder 对 象 

MyFolder .DeleteFolder Path 

$%> 


在 上 述 代码 中 ， 通 过 测试 文件 夹 是 否 存 在 ， 来 判断 是 否 建立 一 个 文件 来。 最 后 将 指定 路 径 
的 文件 夹 删除 。 
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8.2.2 TextStream 对 象 


TextStream 对 象 对 应 于 一 个 文本 文件 的 内 容 。 要 对 文件 进行 读 写 操作 , 必须 使 用 TextStream 
对 象 。TextStream 对 象 可 以 使 用 FileSystemObject 对 象 的 CreateTextFile 方法 或 者 OpenTextFile 
方法 得 到 。 

TextStream 对 象 的 常用 属性 和 方法 如 表 8-4 所 示 。 


表 8-4 TextStream 对 象 的 常用 属性 和 方法 











属性 和 方法 说 明 

AtEndOfLine 属性 若 文件 指针 位 于 文件 中 某 一 行 的 尾 端 ， 返 回 True， 否 则 返回 False 

AtEndofstream 属性 若 文件 指针 位 于 文件 的 尾 端 ， 返 回 Trme， 否 则 返回 False 

Column 属性 返回 文件 指针 位 于 文件 的 第 几 行 

Line 属性 返回 文件 指针 位 于 文件 的 第 几 列 

Close 方法 关闭 文件 

Read(Num) 方 法 从 文件 指针 的 位 置 读 取 后 面 的 Num 个 字符 ， 然 后 存放 至 字符 串 

ReadAll 方法 读 取 整 个 文件 ， 然 后 存放 至 字符 串 

ReadLine 方法 从 文人 读 大 

Skip(Num) 方 法 读 取 文 件 时 跳 过 Num 个 字符 

SkipLine 方法 读 取 文件 时 跳 过 一 行 

Write(String) 方 法 将 字符 串 String 写 入 文件 

WriteLine(String) 方 法 将 字符 串 String 写 入 文件 ， 并 在 字符 串 的 末尾 加 上 换行 字符 ， 若 没有 指 
定 String， 表 示 写 入 一 个 空 行 

WriteBlankLine(Num) 方 法 “| 将 Num 个 换行 字符 写 入 文件 ， 即 写 入 Num 个 空 行 


TextStream 对 象 的 应 用 ， 可 以 通过 下 面 简 单 实例 来 介绍 。 实 例 代码 保存 为 801.asp。 通 过 显 
示 一 个 文本 框 ， 让 用 户 输入 姓名 ， 并 保存 到 文件 name.txt 中 。 有 具体 代码 如 下 : 


<html> 

<head> 

<title> 填 写 姓名 </title> 

<style> 

Body{ 

Font-size:12px; 

| 

</style> 

<% 

Const forwriting=2 

Dim ofso,otext, scount, sfile 

Sfile=server.mappath ("name .txt") 

Set ofso=server.createobject ("scripting.filesystemobject") 

If not ofso.fileexists (sfile) then 
Set otext=ofso.createtextfile (sfile) 
Name="0" 


M/k 





Otext .write (name) 
Else 
If request .form("submit")=" 保 存 姓名 " then 
Set otext=ofso.opentextfile(sfile, forwriting) 
Name=request .form ("age") 
Otext .write (age) 
Else 
Set otext=ofso.opentextfile (sfile) 
Name=otext .readline() 
End if 
End if 
Otext .close() 
$%> 
</head> 
<body> 
<form action="801.asp" method="post" name="frmcount"> 
姓名 为 : <input name="name" value="<%=name%>"><br><br> 
<input type="submit" name="submit" value=" 保 存 姓 名 "> 
<input type="button" name="refresh" value=" 刷 新 姓名 " 
onclick="window.navigate('801.asp');"> 








</form> 

</body> 

</html> 

程序 的 运行 结果 如 图 8-1 所 示 ， 在 文本 框 中 输入 了 用 户 的 姓名 。 
OO [© he hocalhost oemwes |p 回 
高 收藏 口 于 HU 以 匡 天 器 扩展 - 口 网 访 模式 后 翻译 - 林寺 加 - 
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姓名 为 : | 张 三 














保存 姓名 | | 刷新 姓名 
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图 8-1 程序 的 运行 结果 


在 801.asp 中 ， 当 用 户 输入 新 的 用 户 姓名 时 ， 单 击 “ 保 存 姓名 ”按钮 ， 会 将 新 的 用 户 名 保 
存 到 文件 name.txt 中 。 如 果 name.txt 不 存在 ， 则 会 自动 创建 。 如 果 已 经 有 了 此 文件 ， 则 会 自动 
从 中 读 取 数据 ， 并 显示 出 来 。 


8.2.3 ”应 用 实例 
利用 FileSystemObject 对 象 和 TextStream 对 象 可 以 设计 一 个 综合 应 用 的 例子 。 在 本 实例 中 ， 


可 以 收集 浏览 者 提交 的 内 容 信息 ， 保 存 或 者 追加 在 某 个 文件 中 。 
下 面 的 程序 代码 用 来 创建 记录 用 户 提交 内 容 的 文件 survey.txt。 具 体 代码 如 下 : 
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< 各 
Set fs=Server.CreateObject ("Scripting.FileSystemObject") 
Set textfile=fs.CreateTextFile (Server.MapPath("./survey.txt")) 


textFile.Close 
各 > 


创建 survey.txt 文件 后 的 结果 如 图 8-2 所 示 。 
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图 8-2 创建 survey.txt 文 件 
在 设计 网 页 时 ， 需 要 浏览 者 提交 一 些 内 容 信 息 。 具 体 代码 如 下 : 


<body> 
<h2> 用 户 信息 调查 表 </h2> 
<form action="803.asp" method="post"> 


<b> 您 对 我 们 的 产品 是 否 满意 ? </b> 

















<br> 

<input type="radio" name="rate" value="satisfy" checked> 非 常 满意 
<br> 

<input type="radio" name="rate" value="unsatisfy" > 非常 不 满意 
<br> 


<input type="radio" name="rate" value="normal" > 一 般 情况 
<p> 您 是 通过 什么 方式 了 解 到 我 们 的 产品 的 ? 

<br> 

<input type="radio" name="source" value="friend" checked> 朋 友 介 绍 
<br> 

<input type="radio" name="source" value="web" > 通过 网 站 
<br> 

<input type="radio" name="source" value="book" > 通过 杂志 
<p> 

<input type="submit" value=" 提 交 "> 

</form> 

</body> 


上 述 代码 的 运行 结果 如 图 8-3 所 示 。 
当 浏 览 者 提交 信息 以 后 ， 提 交 的 内 容 会 自动 写 入 文件 survey.txt 中 。 然 后 出 现 803.asp 所 示 


的 页 面 ， 如 图 8-4 所 示 。 表 示 用 户 提交 的 信息 已 经 成 功 写 入 文件 中 了 。 
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用 户 信 息 调查 表 


您 对 我 们 的 产品 是 否 满意 ? 
转 非 常 满意 

口 非常 不 清 意 

〇 一 般 情况 


您 是 通过 什么 方式 了 解 到 我 们 的 产品 的 ? | PapWiocahosyehaa3ap x | 和 
回 朋友 介绍 ne 

口 通过 网 站 谢谢 您 完成 调查 信息 的 填写 ! 
口 通过 杂志 
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图 8-3 用 户 信息 调查 表 图 8-4 803.asp 页 面 显示 结果 
页 面 的 程序 代码 具体 如 下 : 


< 和 

Source=trim(request ("source")) 

rate=trim(request ("rate")) 

set fs=server.CreateObject ("scripting.filesystemobject") 

set textfile=fs. OponTest tile (sree mappath ("./survey.txt"),8,true) 
textfile.WriteLine"===: 
textfile.WriteLine"answers submitted on:"gnow!() 
textfile.WriteLine"source="&source 
textfile.WriteLine "rating="&rate 
textfile.close 

$%> 

<html> 

<body> 

谢谢 您 完成 调查 信息 的 填写 ! 

</body> 

</html> 


当 用 户 选择 一 些 选项 ， 提 交 窗 体 以 后 ， 记 录 文 件 survey.txt 中 就 会 添加 一 条 记录 ， 如 图 8-5 
所 示 。 

















answers subnitted on:2888-1-29 下 午 85:58:38 
source=book 


ed on:2888-1-29 下 午 85:51:83 
source=web 
rating=satisfy 





图 8-5 ”survey.txt 文件 的 内 容 
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通过 运行 程序 会 发 现 。 打 开 survey.txt 文件 ， 用 户 提交 的 信息 ， 每 次 都 被 追加 在 文件 尾部 ， 
继续 成 为 文件 的 一 部 分 。 


8.3 ”广告 轮 显 组 件 


AdRotator 组 件 ， 中 文 叫 作 广告 轮 显 组 件 。 用 户 每 次 载 入 此 页 面 时 ， 按 照 概率 来 显示 不 同 
的 广告 图 片 。 AdRotator 组 件 能 够 建立 可 以 循环 显示 不 同 广 告 的 ASP 页 面 , 并 容易 添加 新 广告 。 
AdRotator 组 件 能 够 添加 或 修改 广告 的 超级 链接 ， 这 样 就 可 以 通过 单 击 广告 来 访问 广告 客户 的 
Web 结 点 。AdRotator 组 件 还 可 以 旋转 显示 广告 的 图 像 ， 并 能 通过 重 定向 文件 跟踪 广告 点 击 
次 数 。 


8.3.1 AdRotator 对 象 的 属性 和 方法 


AdRotator 对 象 含有 如 下 的 3 个 属性 和 1 个 方法 。 

@ ”Border 属性 : 指定 广告 条 边界 的 宽度 ， 若 该 属性 未 设 定 ， 则 采用 在 文件 第 一 部 分 内 设 
定 的 值 。 

@ ”TargetFrame 属性 : 用 于 指定 广告 条 连接 的 目标 框 。 如 果 用 户 点 击 广告 图 像 文 件 的 话 ， 
这 个 框 用 于 显示 广告 客户 的 页 面 。 如 果 忽 略 的 话 ， 页面 装载 到 当前 浏览 器 的 目标 框 或 
窗口 内 , 并 且 取 代 含 有 广告 栏 图 像 的 页 面 。 这 个 属性 也 可 以 设置 成 一 个 标准 的 HTML 
框 标识 。 如 : _top、_new、_child、_self、_parent 和 _blank。 

@ ”Chickable 属性 : 规定 广告 栏 图 像 文件 是 否 被 显示 为 一 个 超级 链接 ， 默 认 值 为 True。 

@ GetAdvertisement(Rotator Schedule File) 方 法 : 该 方法 用 于 获取 广告 信息 文件 中 的 数 
据 。 它 将 从 Rotator 计划 文件 中 获取 下 一 个 计划 广告 的 详细 说 明 ， 并 将 其 格式 细 化 为 
HTML 格式 。 


8.3.2 ”使 用 广告 轮 显 组 件 的 步骤 


使 用 广告 轮 显 组 件 首先 要 创建 一 个 AdRotator 组 件 的 实例 ， 即 AdRotator 对 象 。 使 用 
Server.CreateObject 方法 实例 化 AdRotator 对 象 , 其 中 , PROGID 属性 的 值 是 MSWC.AdRotator。 
有 具体 的 语法 格式 如 下 : 

Set ”实例 对 象 名 = 二 Server .Createobject ("MSWC.AdRotator") 

使 用 广告 轮 显 组 件 就 是 使 用 AdRotator 对 象 。 使 用 AdRotator 对 象 需要 两 个 文件 : 重 定向 
文件 (包含 指向 广告 的 URL 链接 ) 和 轮换 计划 文件 (包含 显示 数据 )。 通 过 建立 这 两 个 文件 ， 网 站 
上 的 任何 ASP 网 页 都 可 以 使 用 AdRotator 对 象 。 

使 用 广告 轮 显 组 件 的 具体 步骤 如 下 。 

1. 创建 一 个 AdRotator 轮换 计划 文件 


轮换 计划 文件 是 一 个 文本 文件 ， 为 要 显示 的 广告 编 录 信息 。 这 些 信 息 包括 单 击 广告 后 的 重 
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定向 信息 ， 要 显示 的 广告 大 小 ， 要 显示 的 图 像 、 广 告 的 注释 ， 以 及 表明 特定 广告 被 选中 的 频率 
的 数字 。 在 ASP 网 页 中 调用 AdRotator 组 件 的 方法 时 , 组 件 会 使 用 此 文件 来 选择 要 显示 的 广告 。 

轮换 计划 文件 用 星 号 (*) 分 成 两 节 : 第 一 节 提供 了 所 有 广告 的 公共 信息 ; 第 二 节 则 列 出 了 每 
个 广告 的 特定 数据 。 若 要 测试 轮转 计划 文件 ， 可 以 使 用 Microsoftcom 上 的 一 些 图 像 作为 广告 
图 像 。 表 8-5 介绍 了 轮换 计划 文件 的 结构 。 


表 8-5 轮换 计划 文件 的 结构 


内 容 表 格 
Redirection URL 形式 的 、 可 在 显示 广告 前 执行 的 ASP 文件 的 路 径 和 名 称 。 此 文件 可 用 于 记录 
单 击 广告 的 用 户 的 相关 信息 。 可 以 记录 客户 端 瑟 地 址 、 客 户 端 看 到 的 广告 
所 在 的 网 页 、 广 告 单 击 的 频率 等 信息 。 如 果 没 有 任何 URL 与 第 二 节 中 的 广 
告 相关 联 ，ASP 文件 也 可 以 处 理 这 种 情况 ， 在 按 广 告 单 击 次 数 向 广告 客户 收 
费时 ， 最 好 能 够 向 客户 证 明 这 些 单 击 不 是 同一 位 用 户 反 复 单 击 “ 刷 新 ”的 结果 
Width 每 个 广告 图 像 的 宽度 ， 以 像素 为 单位 ， 默 认 值 为 440 
Height 每 个 广告 图 像 的 高 度 ， 以 像素 为 单位 ， 默 认 值 为 60 











Border 环绕 在 每 个 广告 图 像 周围 的 边框 宽度 ， 默 认 值 为 1 

站 将 第 一 节 与 第 二 节 分 开 。 此 字符 必须 独立 成 行 

图 像 URL 广告 的 图 像 文 件 的 虚拟 路 径 和 文件 名 

广告 客户 主页 的 URL | 选择 此 链接 时 跳 转 到 的 URL 

文本 浏览 器 不 支持 图 片 时 显示 的 文字 

印记 一 个 整数 ， 表 示 AdRotator 组 件 选择 广告 时 选中 此 广告 的 相对 概率 


2. 创建 一 个 AdRotator 重 定 向 文件 

重 定向 文件 是 用 户 创建 的 文件 。 它 通常 包含 用 来 解析 由 AdRotator 组 件 发 送 的 查询 字符 串 
的 脚本 ， 并 将 用 户 重 定向 到 与 用 户 所 单 击 的 广告 相关 的 URL。 用 户 也 可 以 将 脚本 包含 进 重 定 
向 文件 中 ， 以 便 统 计 单 击 某 一 特定 广告 的 用 户 的 数目 ， 并 将 这 一 信息 保存 到 服务 器 上 的 某 一 
文件 中 。 

当 用 户 单 击 广告 时 ,用 ASP 编写 的 AdRotator 重 定向 文件 可 以 在 显示 广告 之 前 ,捕获 某 些 
信息 ， 并 将 这 些 信息 写 入 一 个 文件 。 

该 文件 首先 读 取 用 户 单 击 广告 时 的 信息 : URL 二 Request(“URL”)， 然 后 将 网 页 导向 广告 所 
指向 的 网 页 : Response Redirect URL。 

3. 创建 一 个 调用 AdRotator 组 件 的 ASP 网 页 来 显示 和 轮换 广告 


调用 AdRotator 组 件 首先 要 创建 一 个 AdRotator 对 象 ， 代 码 如 下 : 


Set objLoad=Server.CreateObject ("MSWC.AdRotator") 


如 果 网 页 使 用 框架 , 则 应 设置 TargetFrame 属性 ,以便 在 这 个 框架 中 打开 URL。 代码 如 下 : 


objLoda.TargetFrame="TARGET=NEW" 


然后 可 以 设置 其 他 的 AdRotator 属性 : 
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objLoad.Border=1 


最 后 调用 GetAdvertisement 方法 从 文本 文件 获取 随机 广告 。 
8.3.3 ”应 用 实例 


下 面 介绍 利用 广告 轮 显 组 件 具 体 设计 一 个 随机 广告 播放 器 。 

首先 准备 3 个 作为 广告 的 图 片 文件 ，picl.gif、pic2.gif、pic3.gif， 然 后 依次 编写 如 下 文件 。 
1. 轮换 计划 文件 adrot.txt 

具体 代码 如 下 : 

Redirect/asp/redirect.asp 

Width 180 


Height 80 


Border 1 
大 


PiclegLit 
http://www.sina.com.cn 
新 浪 网 

2 

Plic2.gif 
Http://www.eachnet .com 
易趣 网 

2 

Pic3sgif 
http://www.163.net 

网 易 

7 


这 个 文件 的 前 4 行为 广告 的 全 局 设置 。 第 1 行 指定 redirect.asp( 重 定向 文件 ) 的 路 径 ， 该 路 
径 必 须 是 完整 的 路 径 (http:/www.myserver.com/asp/redirect.asp) 或 者 是 相对 的 虚拟 路 径 
(/asp/redirect.asp)。 第 2、3 行 以 像素 为 单位 指定 了 网 页 上 广告 的 高 度 和 宽度 。 第 4 行 以 像素 为 
单位 指定 了 网 页 上 广告 边框 的 宽度 ， 默 认 值 是 1， 若 设 为 0 则 没有 边框 。 

星 号 下 面 以 每 4 行为 一 组 描述 具体 的 广告 细节 。 第 1 行 指出 广告 图 像 的 位 置 。 第 2 行 指向 
广告 主页 的 位 置 , 如 果 广 告 客户 没有 主页 , 则 在 该 行 上 写 一 个 连 字符 (_), 指出 该 广告 没有 链接 。 
第 3 行 是 在 浏览 器 不 支持 图 形 或 关闭 图 像 功能 的 情况 下 显示 的 替代 文字 。 第 4 行 指出 广告 显示 
所 占 的 百分比 ， 即 显示 频率 。 

2. 重 定向 文件 Redirect.asp 

具体 代码 如 下 : 


<% 

URL=Request ("URL") 
Response.Redirect URL 
各 > 
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3. 显示 和 轮换 广告 网 页 文件 ShowAd.asp 
具体 代码 如 下 : 


<html> 

<head> 

<title> 广 告 轮 显 </title> 

</head> 

<body> 

<h1> 广 告 轮 显 </h1> 

< 外 

Set objad=server.CreateObject ("MSWC .AdRotator") 
Response.Write objad.GetAdvertisement ("adrot.txt") 
Set objad=Nothing 

务 > 

</body> 

</html> 


当 在 浏览 器 中 运行 网 页 文件 ShowAd.asp 时 ， 显 示 的 结果 如 图 8-6 所 示 。 单 击 广告 图 片 ， 





将 指向 所 链接 的 网 站 。 
GO localhost EE 三 | 图 
入 让 写 ， 上 手机 而 夫 > 匡 扩 展 ” 口 网 膛 模 七 刁 熏 党 ， 眉 逢 图 >» 
CE hrtp://localhosy/ch8/ShowAd.a = 人吉- 
广告 轮 显 





站 C99 则 类 癌 条 闻 全 医生 _ 刀 Inig 器 | 此 大 | P 三 口 中 ne 
图 8-6 广告 轮转 效果 
单 击 广告 轮 显 中 的 图 片 会 转向 在 adrot.txt 文件 中 设置 的 网 站 主页 。 








8.4 浏览 器 兼容 组 件 


众所周知 ， 并 不 是 所 有 的 浏览 器 都 能 够 支持 当今 Intemet 技术 的 各 方面 。 有 一 些 特征 ， 某 
些 浏览 器 支持 而 另外 一 些 浏览 器 却 不 支持 ， 如 ActiveX 控件 、Flash、 脚 本 程序 等 。 但 当 ASP 
的 浏览 器 兼容 (BrowserCapabilities) 组 件 时 ， 就 能 够 制作 “智能 ”的 Web 页 面 ， 以 适合 浏览 器 性 
能 的 格式 呈现 页 面 内 容 。 

通过 使 用 BrowserCapabilities 组 件 能 够 正确 地 裁剪 出 自己 的 ASP 文件 输出 。 使 得 ASP 文 
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件 适合 于 用 户 的 浏览 器 。 可 以 根据 浏览 器 检测 组 件 来 判断 浏览 器 的 类 型 并 依 此 来 显示 不 同 的 主 
页 。 这 样 ， 可 以 尽量 使 用 最 新 的 HTML 扩展 而 在 不 支持 的 浏览 器 上 显示 别 的 东西 。 

在 默认 的 情况 下 ， 可 以 检测 到 的 浏览 器 特性 如 下 。 

(1) Browser: 浏览 器 类 型 ， 如 Intemet Explorer 或 者 是 NetScape。 

(2) Version: 浏览 器 当前 的 版 本 。 

(3) Majorver: 浏览 器 的 主 版 本 (小 数 点 以 前 的 )。 

(4) Minorver: 浏览 器 的 辅 版 本 (小 数 点 以 后 的 )。 

(5) Frames: 指示 浏览 器 是 否 支持 分 屏 方式 。 

(6) Tables: 指示 浏览 器 是 否 支 持 表 格 。 

(7) Cookies: 指示 浏览 器 是 否 支 持 Cookies。 

(8) VBScript: 指示 浏览 器 是 否 支 持 客户 端 VBScripts 脚本 。 

(9) JScript 指示 浏览 器 是 否 支 持 客户 端 JScripts 脚本 。 

(10) JavaApplets: 指示 浏览 器 是 否 支 持 Java Applets。 

(11) ActiveXControls: 指示 浏览 器 是 否 支持 客户 端 ActiveX 控件 。 

BrowserCapabilities 组 件 具 有 很 强 的 灵活 性 。 事 实 上 ， 组 件 几 乎 所 有 的 编程 界面 都 是 基于 
Browscap.ini 文件 中 的 表 项 。 它 是 一 个 文本 文件 ， 用 记事 本 就 能 打开 。 如 果 和 希望 为 组 件 增加 新 
的 属性 ， 只 要 为 INI 文件 增加 新 的 表 项 就 可 以 。 


8.4.1 browscap.ini 文件 


BrowserCapabilities 组 件 使 用 一 个 基于 服务 器 的 browscap.ini 文本 文件 。 该 文件 必须 和 
browscap.dll 组 件 文件 处 于 同一 目录 中 。browscap.ini 文件 包含 着 大 多 数 关于 以 前 和 当前 浏览 器 
的 信息 。 并 且 当 浏览 器 的 用 户 代理 字符 串 与 文件 中 的 指定 字符 串 都 不 匹配 时 ， 将 使 用 
browscap.ini 文件 中 默认 的 部 分 。 所 以 添加 关于 浏览 器 的 新 信息 或 者 更 新 现 有 的 信息 ， 只 需要 
编辑 browscap.ini 文件 即 可 。 

在 browscap.ini 文件 中 所 有 条 目 都 是 可 选 的 。 如 果 使 用 的 浏览 器 与 browscap.ini 文件 中 的 
任何 一 个 都 不 匹配 ， 并 且 没 有 指定 默认 浏览 器 设置 ， 那 么 所 有 的 特性 都 将 被 设置 成 Unknown。 

下 面 是 browscap.ini 文件 的 格式 : 

7we can add comments anywhere, prefaced by a semicolon like this 

entry for a specific browser 

[HTTPUsSerAgentHeader] 

Parent=browserDefinition 


Propertyl=valuel 
Property2=value2 


[Default Browser capability Settings] 


defaultPropertyl=defaultValuel 
defaultProperty2=defaultValue2 


[HTTPUserAgentHeader] 行 定义 了 特定 浏览 器 的 起 始 段 ， 并 且 在 parent 行 中 指明 了 包含 浏 
览 器 更 多 信息 的 另外 一 个 定义 。 下 面 的 各 行 定义 了 希望 通过 BrowserCapabilities 组 件 获得 的 属 
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性 以 及 对 于 该 浏览 器 的 相应 值 。 如 果 浏 览 器 没有 列 在 所 属 段 中 ， 或 者 尽管 列 出 了 但 没有 列 出 所 
有 的 属性 ， 将 采用 Default 部 分 所 列 出 的 属性 和 相应 值 。 


8.4.2 ”应 用 实例 


本 实例 介绍 使 用 BrowserCapabilities 组 件 ， 检 测 浏览 器 是 否 支持 一 些 常用 的 特性 。 
具体 代码 如 下 : 


<body bgcolor="#ffffff"> 

< 

"创建 浏览 器 组 件 

set bc=server.createobject ("MSWC.BrowserType") 
%> 

浏览 器 名 称 :<%=bc .browser%><p> 
浏览 器 版 本 : <%=bc .version%><p> 
< 多 

if (bc.frames=true) then 

$%> 

支持 frame <p> 

<% else $%> 

不 支持 frame <p> 


< 

if (bc.table=true) then 
务 > 

支持 表格 <p> 

<$% else %> 

不 支持 表格 <p> 

< 

end if 

$%> 

< 多 

if (bc.backgroundsounds=true) then 


$%> 

支持 背景 音乐 <p> 
<%elses> 

不 支持 背景 音乐 <p> 
< 

end if 

$%> 

< 

if (bc.vbscript=true) then 
$%> 

支持 vbscript 

<p> 

<%elses> 

不 支持 vbscript<p> 
<$ 

end if 
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%> 

< 

if (bc.JavaScript=true) then 
%> 

支持 Javascript 

<p> 

<%elses> 

不 支持 Javascript<p> 
< 和 

end if 

set bc=nothing 

务 > 

</body> 


上 述 代码 的 运行 结果 如 图 8-7 所 示 。 









了 http://localhost/ch8/8-7asp < | 从 和 - 
浏览 器 名 称 : Default A 
浏览 器 版 本 : 0.0 
不 支持 frame 
不 支持 表格 
不 支持 背景 音乐 


不 支持 vbscript 


不 支持 javascript 


v 
加 O29 辐 热 志 新 闻 加 医生 世 加 区 匡 二 下 载 全 可 叭 QQ150% 








图 8-7 ”浏览 器 兼容 组 件 实例 效果 


8.5 文件 超级 链接 组 件 


文件 超级 链接 组 件 ， 也 称 为 ContentLinking 组 件 。 它 主要 用 来 管理 URL 列表 的 内 容 链接 
(NextLink) 对 象 ,通过 该 对 象 可 以 自动 生成 和 更 新 目录 列表 及 先前 和 后 续 的 Web 页 的 导航 链接 。 
可 以 将 各 Web 页 像 书 一 样 管理 。 维 护 时 只 需要 更 改 列表 的 内 容 链接 文件 ， 而 无 须 修改 代码 。 


8.5.1 使 用 ContentLinking 组 件 的 步 又 


ContentLinking 组 件 用 于 创建 快捷 便利 的 导航 系统 。 使 用 ContentLinking 组 件 的 具体 步骤 
如 下 。 
1. 创建 内 容 链接 (NextLink) 对 象 实 例 


内 容 链接 组 件 包含 在 nextlink.dl 文件 中 。 使 用 内 容 链 接 组 件 时 ,首先 基于 该 组 件 创建 一 个 


M/k 





ASP+Dreamweaver 动态 网 站 开发 (第 2 版 ) 





内 容 链接 (NextLink) 对 象 实 例 。 其 语法 格式 如 下 : 


Set myNextLink=Server.CreateObject ("MSWC.NextLink") 
其 中 参数 myNextLink 指定 由 Server.CreateObject 方法 创建 的 对 象 的 名 称 。 
2. 创建 链接 列表 文件 


在 使 用 ContentLinking 组 件 时 ， 首 先 需 要 有 一 个 内 容 列表 文件 ContentLinkingList。 
ContentLinking 组 件 正 式 通 过 读 取 这 个 文件 来 获得 并 处 理 链接 的 所 有 页 面 的 信息 。 事 实 上 ， 此 
列表 文件 是 一 个 纯 文 本 文件 ， 每 一 个 URL 包含 一 行 描述 。 此 列表 文件 可 用 任何 的 文本 编辑 器 
来 修改 。 每 一 行 的 语法 格式 如 下 : 


Web-URL [text-description [comment]] 


其 中 ， 行 末 以 换行 符 结 束 。 行 内 每 一 项 以 Tab 键 隔 开 ， 和 否则 组 件 不 能 识别 。Web-URL 是 
与 页 面相 关 的 超 链接 地 址 的 URL。Text-description 为 包含 Web-URL 描述 文字 的 字符 串 。 
Comment 为 一 些 说 明 性 描述 ， 组 件 是 不 会 处 理 这 些 描述 文字 的 。 

ContentLinking 组 件 正式 通过 读 取 这 个 文件 来 获得 处 理想 要 链接 的 所 有 页 面 信息 的 。 例如， 
下 面 的 代码 所 示 即 为 一 个 内 容 列 表 文 件 : 

Pagel.htm 页面 1 

Page2.htm 页面 2 


Page3.htm 页 面 3 
Page4.htm ”页面 4 


3. 使 用 内 容 链 接 对 象 的 方法 生成 导航 链接 


内 容 链接 文件 提供 了 一 系列 方法 ， 使 用 这 些 方法 可 以 从 内 容 链接 列表 文件 中 获取 Web 页 
的 URL， 描 述 文字 和 其 他 相关 信息 。 在 .asp 文件 中 使 用 这 些 方法 可 以 自动 生成 Web 页 的 导航 
链接 。 各 种 方法 的 描述 如 下 。 

(1) GetListCount(file): 统计 内 容 链接 列表 文件 中 链接 的 项 目 数 。 

(2) GetNextURL(file): 获取 内 容 链接 列表 文件 中 所 列 的 下 一 页 的 URL。 

(3) GetPreviousDescription(file): 获取 内 容 链接 列表 文件 中 所 列 的 上 一 页 的 说 明 行 。 

(4) GetListIndex(file): 获取 内 容 链接 列表 文件 中 当前 页 的 索引 。 

(5) GetNthDescription(file,index): 获取 内 容 链接 列表 文件 中 所 列 的 第 N 页 的 说 明 。 

(6) GetPreviousURL(file): 获取 内 容 链接 列表 文件 中 所 列 的 上 一 页 的 URL。 

(7) GetNextDescription(file): 获取 内 容 链接 列表 文件 中 所 列 的 下 一 页 的 说 明 。 

(8) GetNthURL(file,index): 获取 内 容 链接 列表 文件 中 所 列 的 第 N 页 的 说 明 。 


8.5.2 ”应 用 实例 


本 实例 介绍 通过 ContentLinking 组 件 来 创建 一 个 简单 的 网 络 电子 教程 。 需 要 创建 的 文件 分 
别 是 , nextlink.txt、 nextlink.inc、 805.asp、805-1.asp、805-2.asp、805-3.asp、805-4.asp 和 805-5.asp。 

Nextlink txt 是 链接 列表 文件 。 文件 中 每 行 以 回 车 换行 结束 , 行 中 的 每 一 项 以 Tab 制 表 符 分 
隔 。 有 具体 代码 如 下 : 
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805-1.asp HTML 入 门 
805-2.asp 页 面 布 局 与 文字 设计 
805-3.asp Table 表格 
805-4.asp 文件 之 间 的 链接 
805-5.asp 插入 图 像 





在 创建 了 网 站 的 总 导航 页 面 后 ， 还 希望 在 每 一 页 上 加 一 个 “上 一 页 ”和 “下 一 页 ”的 导航 
超级 链接 。 如 果 网 站 包含 了 大 量 页 面 , 不 可 能 在 每 一 个 页 面 中 都 编写 实现 超级 链接 导航 的 ASP 
代码 。 这 时 可 以 利用 服务 器 端 包容 SSI， 这 样 就 避免 了 大 量 的 重复 工作 。 代 码 如 下 : 


<hr> 

< 各 

set link=server.createobject ("MSWC.NextLink") ' 建 立 contentlingking 组 件 对 象 
if link.getlistindex("nextlink.txt")>1 then "获取 内 容 链接 列表 文件 中 当前 页 的 索引 
$%> 


"获取 内 容 链接 列表 文件 中 所 列 的 上 一 页 的 URL 
<a Href="<$%=1ink.GetPreviousURL ("nextlink.txt") %>"> 上 一 页 </a> <% End If %> 


' 获 取 内 容 链 接 列 表 文 件 中 所 列 的 下 一 页 的 URL 

<a Href="<$%$=1ink.getNextURL ("nextlink.txt") %$>"> 下 一 页 </a> 
<p> 

<a href="805.asp"> 返 回 主页 </a> 


上 述 代 码 放 在 了 文件 nextlink.inc 文件 中 。 在 其 他 的 .asp 页 面 里 , 可 以 通过 引用 <!--#include 
file=“nextlink.ine”--> 将 上 述 代 码 放 进去 。 页 面 中 就 会 根据 具体 情况 出 现 “ 上 一 页 ”“ 下 一 页 ” 
“返回 主页 ”的 链接 。 例 如 ， 在 页 面 805-1.asp 中 ， 加 入 引用 的 代码 ， 具 体 如 下 : 


<body> 
<h3>HTML 入 门 </h3> 
<hr> 
<table width="409" height="199" border="1" bordercolor="#9933FF"> 

<Er> 

<td width="411"><strong> ”HTML </strong> 英 语意 思 是 : Hypertext Marked 

Language， 即 超 文本 标记 语言 ,是 一 种 用 来 制作 超 文本 文档 的 简单 标记 语言 。 用 HTML 编写 的 超 文本 文 
档 称 为 HTML 文档 ， 它 能 独立 于 各 种 操作 系统 平台 (如 UNIX，WINDOWS 等 ) 。 自 1990 年 以 来 HTML 就 
一 直 被 用 作 World Wide Web 的 信息 表示 语言 ， 用 于 描述 Homepage 的 格式 设计 和 它 与 ww 上 其 他 
Homepage 的 连接 信息 。 使 用 HTML 语言 描述 的 文件 ， 需 要 通过 Www 浏览 器 显示 出 效果 。 </td> 

</tr> 
</table> 
<!--#include file="nextlink.inc"--> ' 引 用 文件 nextlink.inc 
</body> 


同 理 ， 可 在 页 面 805-2.asp、805-3.asp 等 几 个 页 面 中 加 入 引用 nextlink.inc 文件 的 代码 。 

本 实例 的 首页 文件 是 805.asp， 它 通过 读 取 nextlink.txt 文本 文件 中 的 信息 ， 获 取 超 级 链接 
的 地 址 和 超级 链接 的 说 明 。 具 体 代码 如 下 : 

< 等 

set mylinks=server.createobject ("MSWC .NextLink") "建立 contentlingking 组 件 对 象 


名 > 
<html > 
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<head><title> 无 标题 文档 </title></head> 
<body> 
本 教程 一 共有 <%=mylinks.getlistcount ("nextlink.txt")%> 节 
"获取 next1link.txt 文件 中 链接 的 数目 
<hr> 
< 要 
for 1i=1 to mylinks.getlistcount ("nextlink.txt") 
务 > 
<li class="STYLE4"><img src="image/star.gif" width="20" height="18" /> 
<a href="<%=mylinks.GetNthURL ("nextlink.txt",i)%$>"> 
"获取 nextlink.txt 文件 中 定义 的 超级 链接 
<%=mylinks.GetNthDescription ("nextlink.txt",i)®%></a> 
"获取 next1link.txt 文件 中 定义 的 文字 描述 
< 各 
next 
务 > 
</ul> 
</body> 
</html> 


在 浏览 器 中 运行 首页 文件 805.asp 后 的 效果 如 图 8-8 所 示 。 
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图 8-8 首页 805.asp 的 运行 结果 


首页 中 超级 链接 的 文字 (如 “HTML 入 门 ”) 以 及 地 址 ， 都 是 通过 读 取 nextlink.txt 文件 获得 
的 。 当 点 击 文字 时 ， 会 自动 跳 转 到 相关 页 面 。 例 如 ， 点 击 文字 “HTML 入门”， 结 果 如 图 8-9 
所 示 。 

此 时 会 发 现 页 面 的 下 方 有 一 个 “下 一 页 ”和 “返回 主页 ”的 链接 提示 。 这 是 因为 在 页 面 代 
码 中 ， 引 用 了 文件 nextlink.inc。 在 文件 nextlink.inc 中 ， 通 过 获取 当前 页 在 内 容 链 接 列表 文件 
nextlink.txt 的 索引 号 ， 来 判断 该 页 面 中 是 否 要 显示 “上 一 页 ”和 “下 一 页 ”的 链接 提示 。 由 于 
此 时 页 面 805-1.asp， 在 nextlink.txt 中 的 索引 号 是 1， 所 以 它 只 能 显示 “下 一 页 ”的 链接 提示 。 
同 理 ， 页 面 805-2.asp 的 索引 号 是 2， 所 示 根据 文件 nextlink.inc 中 代码 的 描述 ， 在 它 的 页 面 上 
同时 显示 “上 一 页 ”和 “下 一 页 ”的 链接 提示 ， 如 图 8-10 所 示 。 
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图 8-9 ”页面 805-1.asp 的 运行 结果 图 8-10 ”页面 805-2.asp 的 运行 结果 


通过 该 实例 可 以 看 出 。 当 网 站 的 相关 页 面 数量 非常 大 时 ， 通 过 ContentLinking 组 件 可 以 方 
便 地 实现 相关 网 页 之 间 的 跳 转 。 而 不 必 在 每 个 页 面 中 都 编写 相应 的 超级 链接 代码 。 其 中 ， 起 到 
关键 作用 的 是 内 容 链接 列表 文件 。 只 需要 修改 它 的 内 容 ， 就 可 以 更 新 网 站 中 的 导航 链接 ， 提 高 
了 编程 的 效率 。 


8.6 ”计数 器 组 件 


计数 器 组 件 (Counters) 用 于 创建 一 个 Counters 对 象 实例 。 在 一 个 Web 站 点 上 仅 创 建 一 个 
Counters 对 象 , 通过 该 对 象 可 以 创建 任意 数量 的 独立 计数 器 。 计 数 器 是 一 个 包含 整数 的 持续 值 ， 
可 以 使 用 计数 器 组 件 的 方法 来 控制 计数 器 。 


8.6.1 创建 计数 器 组 件 的 实例 对 象 


计数 器 组 件 包含 在 Counters.dll 文件 中 。 通 过 该 组 件 创建 的 所 有 计数 器 都 存储 在 一 个 名 为 
Counters.txt 的 文本 文件 中 。 如 果 将 下 面 的 代码 加 入 到 应 用 程序 的 global.asa 文件 中 ， 可 以 在 
Web 服务 器 上 一 次 性 创建 Counters 对 象 的 实例 。 具 体 代码 如 下 : 

<object runa="server" scope="application" id="counter" 

progid="MSWC.Counters"> 

</object> 

一 旦 创建 了 计数 器 对 象 ， 它 将 一 直 持 续 下 去 直到 被 删除 为 止 。 可 以 在 整个 应 用 程序 范围 内 
使 用 该 对 象 的 方法 对 计数 器 进行 控制 。 例 如 ， 如 果 在 一 个 名 为 pagel.asp 的 页 面 上 显示 和 增加 
一 个 叫 HitCount 的 计数 器 的 值 ， 而 又 在 另 一 个 page2.asp 页 面 上 增加 HitCount 的 值 ， 则 两 个 页 
面 将 增加 同一 个 计数 器 的 值 .例如 , 当 访 问 pagel.asp 时 ,计数 器 的 值 增 加 到 34, 则 访问 page2.asp 
会 将 HitCount 增加 到 35， 下 一 次 访问 pagel.asp 时 ，HitCount 将 增加 到 36。 
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8.6.2 ”Counters 对 象 的 方法 


创建 一 个 计数 器 对 象 之 后 ， 可 以 使 用 该 对 象 的 方法 来 控制 计数 器 。 例 如 ， 可 以 返回 计数 器 
的 值 ， 使 计数 器 的 值 加 1， 从 counters.txt 文件 中 删除 计数 器 以 及 将 计数 器 的 值 设 置 为 一 个 特定 
的 整数 等 。Counters 对 象 的 方法 如 表 8-6 所 示 。 


表 8-6 Counters 对 象 的 方法 


方 法 描 述 
Get 方 法 该 方法 根据 计数 器 的 名 称 返 回 其 当前 值 ， 如 果 
此 计数 器 不 存在 , 则 该 方法 创建 它 并 将 其 置 为 0 
Increment 方法 | 该 方法 根据 计数 器 的 名 称 ， 将 该 计数 器 的 值 加 
1, 并 返回 计数 器 的 新 值 。 如果 该 计数 器 不 存在 ， 
该 方法 将 创建 它 并 将 其 值 设 为 1 
Remove 方 法 | 该 方法 根据 计数 器 的 名 称 从 计数 器 对 象 和 
counters.txt 文件 中 删除 计数 器 
Set 方 法 该 方法 根据 计数 器 的 名 称 ， 将 计数 器 设置 为 一 
个 指定 的 整数 值 并 返回 此 新 值 。 如 果 该 计数 器 
不 存在 ， 此 方法 创建 计数 器 并 将 其 值 设置 为 这 
个 整数 


其 中 ， 参 数 CounterName 是 一 个 字符 串 ， 用 于 指定 计数 器 的 名 称 。 参 数 int 指定 该 计数 器 
的 新 整数 值 。 


8.6.3 ”应 用 实例 


本 实例 通过 介绍 Counters 组 件 来 设计 一 个 对 歌曲 进行 计 票 的 计 票 系统 。 本 实例 需要 创建 的 
文件 有 globalasa，806-1.asp 呵 806-2.asp。 

首先 通过 <object> 在 Web 服务 器 上 一 次 性 创建 一 个 Counters 对 象 。 保 存在 文件 global.asa 
中 。 代 码 如 下 : 

' 通 过 <object> 在 Web 服务 器 上 一 次 性 创建 一 个 Counters 对 象 


<object runat="server" scope="application" id="counters" 
progid="MSWC.Counters"></object> 


设计 提交 表单 的 文件 806-1.asp， 具 体 代码 如 下 : 


<head> 

<title> 选 出 您 最 喜欢 的 歌曲 </title> 

<%$ 

session("counters")=session ("counters")+1 
if session("counters")>1 then 
a="806-1.asp" 

response.write" 您 已 经 投 过 票 了 ， 谢 谢 ! " 
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语法 格式 


Counters.Get(CounterName) 








Counters.Increment(CounterName) 














Counters.Remove(CounterName) 


Counters.Set(CounterName,int) 
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else 

a="806-2.asp" 

end if 

%> 

</head> 

<body> 

<form name="forml" method="post" action=<%=a%$> > 

<p><center> 从 下 面 的 歌曲 列表 中 选择 一 首 您 最 喜欢 的 歌曲 <hr width="70%" color="#cc9999"> 
<p><input type="radio" name="song" value="a"> 青 花 瓷 &nbsp; gnbsp; 
<input type="radio" name="song" value="b"> 蓝 莲花 &nbsp;&nbsp; 

<input type="radio" name="song" value="c"> 最 浪漫 的 事 &nbsp &nbsp; 
<input type="radio" name="song"” value="d"> 葛 斯 科 郊 外 的 晚上 gnbsp; gnbsp; 
<input type="submit" name="submitl" value=" 提 交 "></center> 

</form> 

</body> 


设计 统计 票数 的 文件 806-2.asp， 具 体 代码 如 下 : 


<head><title> 投 票 结果 统计 </title></head> 
<body> 

<$ 

Song=request .form("song") 

select case Song 


CAase "A 

Counters .Increment ("aaaacounter") "通过 increment 使 计数 器 的 数值 加 1 
case “DY 

counters.increment ("bbbbcounter") 

Sase Ge 

counters .increment ("cccccounter") 

Cased "dd 


counters.increment ("ddddcounter") 

end select 

务 > 

<div align="center"> 

<h3> 当 前 投票 结果 如 下 : </h3> 

<hr width="50%" color="#cc9999"> 

<p>" 青 花 瓷 " 得 票数 :<%$=counters.get ("aaaacounter")%>  ”' 通 过 get 方法 显示 计数 器 的 值 
<p>" 蓝 莲花 "得 票数 ， <%$=counters .get ("bbbbcounter")%> 

<p>" 最 浪漫 的 事 "得 票数 : <%$=counters.get ("cccccounter")s> 

<p>" 莫 斯 科 郊 外 的 晚上 "得 票数 : <$=counters.get ("ddddcounter")%> 
<p><p><a href="806-1.asp"> 返 回 上 一 页 </a> 

</div> 

</body> 


当 在 浏览 器 中 执行 文件 806-1.asp 时 ， 用 户 可 以 对 自己 喜欢 的 歌曲 进行 投票 ， 如 图 8-11 
所 示 。 

当众 多 用 户 通 过 如 图 8-11 所 示 的 页 面 选 出 了 自己 喜欢 的 歌曲 后 ， 通 过 “提交 ”按钮 可 以 
转 到 统计 投票 结果 的 页 面 ， 如 图 8-12 所 示 。 
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当前 投票 结果 如 下 : 












“青花 宫 ” 得 票数 :0 
“ 蓝 莲 花 ” 得 票数 : 1 
“最 浪漫 的 事 ” 得 票数 :3 
“ 偶 斯 科 郊外 的 网 上 ”得 票数 : 0 
返回 上 一 页 
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8-11 文件 8-6-1.asp 的 运行 结果 8-12 文件 806-2.asp 的 运行 结果 
8.7 小 结 


本 章 介 绍 了 ASP 常用 的 一 些 内 置 组 件 的 基本 用 法 。 读 者 可 以 根据 网 站 的 具体 情况 使 用 这 
些 组 件 。ASP 的 内 置 组 件 使 用 方法 比较 简单 。 通 过 本 章 的 应 用 实例 ， 读 者 可 以 很 轻松 地 掌握 其 
基本 用 法 并 在 实际 开发 中 熟练 运用 。 
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大 内容 摘要 lnwewsct AN 

现在 非常 多 的 网 站 使 用 ASP 程序 实现 。ASP 具有 快速 开发 、 无 须 编译 即 可 执行 等 许多 优 
点 ， 迅 速 被 网 站 开发 人 员 所 接受 。 因此 ，ASP 程序 在 网 站 上 应 用 十 分 普遍 。ASP 在 显示 出 的 快 
速 开发 能 力 的 同时 ， 也 暴露 出 ASP 受到 众多 漏洞 的 困扰 . 例如，ASP 文件 源 代 码 泄露 漏洞 等 。 
本 章 重点 介绍 ASP 服务 器 常见 的 安全 漏洞 和 防护 措施 。 


/学习 目标 Ioweew 


@ 了 解 ASP 的 常见 安全 漏洞 。 
@ 掌握 安全 漏洞 的 防范 措施 。 


9.1 ASP 的 漏洞 


随 着 Internet 的 发 展 ， 计 算 机 安全 要 求 更 高 。 不 但 要 求 防治 病毒 ， 还 要 提高 抵抗 黑客 入 侵 
的 能 力 , 这 就 要 求 提高 网 站 信息 安全 。 网 站 信息 安全 就 是 防止 网 络 环境 下 的 信息 被 非法 地 获取 、 
更 改 或 者 破坏 ， 确 保 信息 的 完整 性 、 保 密 性 、 可 用 性 。 

本 节 讲 述 ASP 常见 的 一 些 漏洞 ， 以 引起 ASP 程序 员 的 注意 。 常 见 的 漏洞 介绍 如 下 。 

(1) 查看 程序 源 代 码 。 

(2) FileSystemObject 组 件 漏洞 。 

(3) 从 客户 端 下 载 数据 库 。 

(4) ASP 程序 密码 验证 漏洞 。 

(5) 脚本 程序 漏洞 。 


9.1.1 ”查看 程序 源 代码 


防止 ASP 程序 源 代 码 泄露 ， 是 网 络 信息 安全 一 个 非常 重要 的 问题 。 如 何 维护 ASP 程序 源 
代码 的 安全 ， 使 其 源 代码 不 被 轻易 浏览 或 下 载 ， 已 经 成 为 当前 网 络 需要 解决 的 迫切 问题 。 

查看 ASP 程序 源 代码 的 方法 有 很 多 种 。 由 于 ASP 本 身 存在 的 后 门 ， 可 能 使 ASP 源 代码 泄 
露 。 另 外 ，ASP 程序 需要 IS 解释 执行 ，ASP 源 代码 泄露 很 多 是 由 于 IS 造成 的 。 现 在 这 些 漏 
洞 已 经 被 修补 。 如 果 用 户 IS 版 本 较 低 ， 利 用 这 些 漏洞 仍然 可 以 看 到 源 代 码 。 

1. ASP 程序 后 面 添加 特殊 符号 漏洞 

这 是 ASP 早期 的 漏洞 主要 影响 一 些 低 版 本 的 HS。 在 URL 地 址 的 后 面 加 一 个 特殊 的 符号 ， 
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就 可 以 在 浏览 器 中 看 到 ASP 程序 的 源 代 码 。 这 些 特殊 符号 包括 %81、::SDATA 等 。 代 码 如 下 : 
http:://URL/default.asp%81 
http:://URL/default .asp: :$DATA 
这 两 行 代码 都 可 以 在 浏览 器 中 显示 出 default.asp 文件 的 源 代码 。 
2. Showcode.asp 或 Code.asp 漏洞 


在 微软 提供 的 默认 安装 文件 中 ,， 有 些 是 作为 范例 的 程序 。 其 中 ,Showcode.asp( 或 Code.asp) 
会 将 范例 网 站 程序 源 代码 显示 出 来 。 利 用 这 个 文件 也 可 以 显示 网 站 ASP 文件 代码 。 在 浏览 器 
中 输入 以 下 URL 字符 串 ， 就 可 在 浏览 器 中 显示 ASP 程序 的 源 代码 : 

http://URL/msadc/samples/selector/showcode.asp?source=/../../../display.asp 

其 中 ，“source=” 后 为 正确 的 文件 名 及 目录 路 径 。 

3. ISM.dll 缓冲 截断 漏洞 

IIS 5.0 有 个 ISM.dll 缓冲 截断 漏洞 , 或 称 之 为 超 长 文件 名 请 求 漏洞 , 也 可 以 显示 ASP 源 代码 。 

在 输入 的 URL 字符 串 的 尾部 加 上 +.htr， 就 可 以 利用 这 个 安全 漏洞 。 例 如 ， 查 看 某 网 站 上 
default.asp 的 源 代码 ， 可 以 用 下 面 的 URL: 

http://URL/default.asp+.htr 

在 浏览 器 的 菜单 栏 中 选择 “查看 ”|“ 源 文件 ”命令 ， 可 看 到 default.asp 的 源 代码 。 另 外 ， 
如 果 ASP 文件 有 卷 标 ， 源 代码 不 一 定 能 全 部 显示 。 但 是 使 用 该 方法 可 以 取得 global.asa 文件 内 
容 。 代 码 如 下 : 

http://URL/global .asa+.htr 


global.asa 存储 在 网 站 文件 根 目录 之 下 ， 含 有 一 些 网 页 应 用 程序 设 定 的 参数 。 一 旦 取得 
global.asa， 就 为 取得 整个 网 站 做 好 了 准备 。 微 软 已 经 修正 了 这 项 安全 漏洞 。 在 +.htr 安全 漏洞 
修正 之 后 ，Translate: f 模 块 的 安全 漏洞 也 可 显示 ASP 文件 源 代码 。 如 果 一 个 反 斜 线 (“\”) 附 
加 到 所 要 求 的 文件 资源 之 后 ， 并 且 Translate: 模块 在 提出 请 求 的 HITP 标 头 标题 里 ， 网 页 服 
务 器 就 会 回 传 未 经 处 理 的 ASP 源 程序 代码 。 

4. lIS 其 他 服务 缺陷 造成 ASP 源码 泄露 


在 安装 了 Index Server 后 ，IS 有 一 个 漏洞 ， 导 致 IS 将 ASP 程序 作为 普遍 文件 传 给 用 户 ， 
造成 ASP 源码 泄露 。 利用 这 个 漏洞 , 向 运行 Index Server 服务 的 IS 提交 特殊 字符 格式 的 URL， 
就 可 看 到 ASP 文件 源 程序 。 存 在 该 漏洞 的 服务 器 ， 在 接受 下 面 的 请 求 后 ， 会 返回 default.asp 
的 源 代 码 ， 造 成 ASP 源码 的 泄露 。 代 码 如 下 : 


http:/URL/null.htw?Ciwebhitsfile=/default .asp%20&CiRestrition=none 
&CiHiliteType=Full 





9.1.2 ”FileSystemObject 组 件 漏洞 


FileSystemObject 组 件 是 ASP 的 一 个 组 件 ，ASP 利用 它 实 现 对 文件 和 目录 的 管理 。 


NN 
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FileSystemObject 组 件 可 以 查看 、 修 改 文件 内 容 ， 甚 至 删除 文件 。 假 设 网 站 支持 文件 上 传 功能 ， 
非法 用 户 上 传 了 文件 scan.asp。 在 浏览 器 的 地 址 栏 中 ， 输 入 该 文件 地 址 和 查看 文件 的 名 称 ， 就 
可 以 看 到 指定 文件 的 内 容 ， 如 图 9-1 所 示 。 


GO om ool-l2nr 15 图 
和 居民 癌 风 区 价 区 二 硬汉 ” 避 灿 罗 ”各 亲信 家 萃 观 - 二 网 各 ~ 
hepVWiocalhosucha/9-1asp 。 研 全 如、 


html> head> 《meta http-equiv="Content-Type” 
content=“text/html; charset=gb2312”> 
titleYasdf</title> /head> body> Ca href-“scan. asp? 
人 1e=index. asp”》 查 看 文件 内 容 《</a> 《</body> 《</html> 
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图 9-1 FileSystemObject 组 件 漏洞 


scan.asp 文件 的 调用 方式 是 http://URL/scan.asp?file=filename。 其 中 ，filename 为 查看 文件 
的 名 称 。 文 件 scan.asp 的 代码 如 下 : 

< 条 

"参数 file 表示 需要 打开 的 文件 名 称 

FileName=Request .querystring ("file") 

' 创 建 FilesystemObject 对 象 


Set objfilesys=createobject ("scripting.filesystemobject") 


' 获 取 文 件 的 路 径 
FilePath=Server .MapPath (FileName) 
"打开 该 文件 


set objfile=objfilesys.opentextfile (FilePath,1 ) 
' 读 出 文件 内 容 

full=objfile.readall 

' 输 出 文件 内 容 


response.write Server.HTMLEncode (full) 
务 > 


9.1.3 ”从 客户 端 下 载 数 据 库 


Access 数据 库 是 微软 推出 的 桌面 型 数据 库 系 统 ， 具 有 操作 简单 和 界面 友好 等 特点 。 因 此 ， 
将 Access 与 ASP 结合 ， 是 目前 中 小 型 网 络 建设 的 首选 方案 。 但 是 该 方案 为 网 站 建设 带 来 便捷 
的 同时 ， 也 带 来 了 不 容 忽视 的 安全 问题 。ASP 和 Access 数据 库 结合 的 应 用 系统 ， 主 要 安全 隐 
患 来 自 ASP 网 页 设计 过 程 中 的 安全 漏洞 。 首 先是 Access 数据 库 被 非法 用 户 下 载 ， 其 次 来 自 
Access 数据 库 的 安全 性 ， 下 载 的 Access 数据 库 密码 被 非法 用 户 破解 。 


1. 下 载 Access 数据 库 





如 果 非 法 用 户 获得 ， 或 猜 到 Access 数据 库 的 存储 路 径 和 数据 库 名 ， 则 该 数据 库 Cmdb) 就 可 
能 被 下 载 ， 这 是 非常 危险 的 。 前 面 章 节 介绍 的 登录 模块 ， 存 放 用 户 信息 的 数据 库 User.mdb， 放 
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在 根 目录 下 面 。 非 法 用 户 在 浏览 器 地 址 栏 中 ， 输 入 URL/User.mdb， 就 有 可 能 把 该 数据 库 文件 
下 载 到 本 地 机 器 中 。 其 中 ，URL 为 该 网 站 的 网 址 。 另外， 有 些 下 载 工 具 不 但 可 以 下 载 网 页 ， 还 
可 以 下 载 整个 网 站 。 使 用 这 些 工具 也 可 以 下 载 Access 数据 库 。 


2. Access 数据 库 密码 被 破解 


前 面 介绍 的 登录 模块 ， 使 用 MD5 加 密 算法 加 密 用 户 密码 ， 并 存 入 数据 库 。 有 些 程序 员 认 
为 MD5 加 密 算法 不 可 逆 ， 非 法 用 户 即 使 下 载 Access 数据 库 ， 也 没有 办 法 获得 用 户 密码 。 其 实 
这 是 错误 的 ，MD5 加 密 算 法 可 以 被 一 些 工 具 破解 。 因 此 ， 用 户 下 载 Access 数据 库 后 ， 可 以 获 
取 用 户 的 密码 。 

有 些 程序 员 认 为 ， 使 用 Access 自 带 的 加 密 方 法 进行 加 密 数 据 库 ， 非 法 用 户 下 载 后 也 打 不 
开 。 由 于 Access 数据 库 的 加 密 机 制 比 较 简 单 ， 解 密 也 相对 容易 。 有 资料 介绍 Access 数据 库 的 
解密 方法 。Access 数据 库 将 用 户 输入 的 密码 与 固定 密 钥 进行 异 或 ， 形 成 一 个 加 密 串 。 该 加 密 串 
存储 在 * mdb 文件 中 ， 存 储 为 从 地 址 &H42 开始 的 区 域内 。 异 或 操作 的 特点 是 “经 过 两 次 异 或 
就 恢复 原 值 ”， 因 此 ， 密 钥 与 *. mdb 文件 中 的 加 密 串 ， 进 行 第 二 次 异 或 操作 ， 就 可 以 轻松 地 
得 到 Access 数据 库 的 密码 。 基 于 这 种 原理 ， 可 以 很 容易 地 编制 出 解密 和 程序。 因此， 数据库 文 
件 一 旦 被 非法 用 户 下 载 ， 数 据 库 的 信息 就 会 被 轻易 得 到 。 


9.1.4 ASP 程序 密码 验证 漏洞 


网 站 要 求 用 户 输入 合法 的 用 户 名 和 密码 , 才 可 以 访问 和 浏览 特定 的 页 面 , 这 称 为 密码 验证 。 
密码 验证 也 不 是 绝对 可 靠 的 。 用 户 可 以 绕 过 这 些 必 需 的 用 户 名 和 密码 。 不 需要 输入 用 户 名 和 密 
码 ， 就 可 以 访问 这 些 特定 的 页 面 。 下 面 介 绍 ASP 程序 密码 验证 漏洞 。 常 用 的 绕 过 ASP 程序 密 
码 验证 的 方法 有 以 下 3 种 。 

(1) 嵌入 SQL 语句 。 

(2) 下 载 Access 数据 库 。 

(3) URL 直接 访问 。 

本 节 就 对 这 3 种 验证 方法 的 实现 原理 和 存在 的 漏洞 进行 分 析 。 

1. 嵌入 SQL 语句 


很 多 网 站 常 把 用 户 名 和 密码 放 到 数据 库 中 ， 以 实现 对 用 户 名 和 密码 的 管理 。 对 用 户 名 和 密 
码 的 管理 往往 借助 于 SQL 语句 。ASP 程序 使 用 SQL 语句 ， 来 查询 用 户 名 和 密码 的 数据 表 ， 以 
此 验证 用 户 在 登录 窗口 中 ， 输 入 的 用 户 名 和 密码 是 否 与 数据 库 中 的 某 个 一 致 。 若 一 致 则 通过 验 
证 ， 允 许 浏览 页 面 ， 否则， 拒绝 该 用 户 浏览 的 请 求 。 

在 前 面 讲述 的 登录 模块 中 ，ASP 程序 中 采用 如 下 的 SQL 查询 语句 : 


sql="select * from user Where USERNAME='" &usernameg&"' and PASS='""&pass"'" 


其 中 ，USERNAME 和 PASS 表示 数据 库 表 中 用 户 名 和 密码 字段 名 称 ; usemame 和 pass 表 
示 用 户 输入 的 用 户 名 和 密码 。ASP 程序 通过 执行 上 述 查询 语句 ,验证 用 户 名 和 密码 是 否 合 法 有 
效 。 理 论 分 析 和 实践 验证 都 表明 ， 上 面 的 SQL 语句 存在 着 安全 漏洞 ， 导 致密 码 验 证 过 程 的 
失败 。 
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在 登录 模块 的 用 户 名 文本 框 中 ， 输 入 “1 or 1=1 or “1 一 1”; 在 密码 文本 框 中 ， 随 便 输入 
字符 。 单 击 “ 确 定 ”按钮 ， 如 图 9-2 所 示 ， 没 有 使 用 合法 的 用 户 和 密码 照样 登录 成 功 。 
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图 9-2 绕 过 登录 密码 之 后 的 界面 


绕 过 密码 分 析 如 下 。 
把 上 面 输入 的 用 户 名 “1 or 1=1 or “1=”1” 和 任意 的 密码 pass， 代 入 密码 验证 SQL 语句 。 
变量 代 换 后 ， 上 面 的 语句 将 会 变 成 下 面 的 语句 : 


sql= "Select * from user where Username='1' or 1=1 or '1'='1' and pass=pass" 


or 是 逻辑 或 运算 符 。or 所 连接 的 两 个 条 件 ， 只 要 其 中 一 个 成 立 ， 等 式 就 会 成 立 。or 后 面 的 
条 件 1=1， 是 一 个 永远 为 真 (成 立 ) 的 逻辑 判断 表达 式 ， 所 以 or 运算 符 返回 值 为 真 。select 语句 
在 判断 查询 条 件 时 ， 遇 到 或 (or) 操 作为 真 就 会 忽略 下 面 的 与 (and) 操 作 。 在 本 行 语句 中 ，and 验 
证 将 不 再 继续 ， 因 此 ， 该 SQL 语句 执行 条 件 成 立 。 无 论 是 否 存在 用 户 “1 or 1=1 or “1="1”， 
用 户 均 能 成 功 绕 过 密码 验证 ， 进 入 特定 页 面 。 

以 上 只 是 一 种 构造 方法 ， 也 可 以 构造 以 下 的 用 户 名 和 密码 。 

(1) 用 户 名 : user or USERNAME 一 ‘user。 

(2) 密码 : pass or PASS <> ‘pass。 

其 中 ，USERNAME 和 PASS 表示 数据 库 中 ， 用 户 名 和 密码 字段 名 称 。 

在 用 户 名 文本 框 内 写 入 “user” or username<> “user”， 在 口令 框 内 写 入 “pass”or pass 二 
"pass”。 尽 管 输入 的 用 户 名 和 密码 可 能 都 是 错 的 ， 但 是 变量 代 换 后 的 SQL 语句 如 下 : 

sql= "Select * from user Where username=' USer' or username<> "User' and "& 

" pass=' pass' or pass<> 'pass'" 

现在 可 以 看 到 ，where 后 面 的 逻辑 运算 结果 永 为 “ 真 ”。 因 此 ， 这 种 方法 也 可 以 成 功 地 绕 
过 密码 验证 进入 系统 ， 浏 览 特定 页 面 。 

但 是 , 这 种 方法 需要 满足 以 下 两 个 条 件 才 可 以 实践 成 功 。 因此 , 这 种 方法 实现 起 来 比较 困难 。 

(1) 知道 数据 库 中 存放 用 户 名 和 密码 的 字段 名 称 ， 这 对 客户 端的 用 户 来 说 具有 一 定 的 困难 。 

(2) 系统 对 输入 的 字符 串 不 进行 有 效 性 检查 。 

2. 下 载 Access 数据 库 


网 站 使 用 Access 数据 库 ， 如 果 程 序 员 缺 乏 安全 意识 和 措施 ，Access 数据 库 会 被 非法 用 户 
下 载 。 这 样 ， 网 站 中 所 有 的 用 户 名 和 密码 ， 均 被 用 户 获 得 。 网 站 也 没有 了 任何 安全 可 言 。 下 载 
Access 数据 库 原理 见 9.1.3 节 ; 由 于 Access 数据 库 的 加 密 机 制 非常 简单 ， 即 使 数据 库 设置 了 密 
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码 ， 借 助 于 一 定 的 工具 解密 也 是 很 容易 的 。 

3. URL 直接 访问 

用 户 在 浏览 器 窗口 中 ， 直 接 输入 ASP 页 面 的 URL 地 址 ， 访 问 需要 经 过 验证 才能 访问 的 页 
面 。 这 就 是 URL 直接 访问 。 用 户 知道 了 ASP 页 面 的 路 径 和 文件 名 ， 如 后 台 管理 页 面 。 在 浏览 
器 地 址 栏 ， 直 接 输入 这 个 ASP 页 面 文件 名 ,就 有 可 能 绕 过 密码 验证 直接 进入 该 页 面 。 

发 布 前 面 章 节 介绍 的 在 线 投票 管理 模块 ， 管 理 界面 文件 为 admin.asp。 在 浏览 器 的 地 址 栏 
中 ， 输 入 网 址 http://localhost/Vote/admin.asp， 如 图 9-3 所 示 。 没 有 用 户 名 和 密码 一 样 获得 了 管 
理 功能 。 
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图 9-3 ” 绕 过 登录 密码 直接 访问 的 页 面 
另外 ，ASP 页 面 间 有 时 通过 QueryString 传递 参数 。 非 法 用 户 可 以 通过 构造 错误 的 URL， 
获取 错误 信息 ， 从 而 获得 QueryString 的 参数 名 字 和 排列 方式 ， 再 通过 构造 参数 的 值 来 访问 其 
他 页 面 。 


9.1.5 ”脚本 程序 漏洞 


现在 有 些 网 站 存在 脚本 程序 漏洞 。 非 法 用 户 输入 非法 脚本 代码 ， 使 网 站 运行 ， 从 而 控制 网 
站 。 非 法 用 户 使 用 JavaScript， 也 可 以 对 网 站 造成 破坏 。 如 果 网 站 有 SQL 注入 漏洞 ， 对 网 站 的 
破坏 性 更 大 。 

下 面 简要 介绍 脚本 程序 漏洞 。 

1. HTML 和 JavaScript 语句 

有 些 ASP 网 站 程序 ， 特 别 是 网 站 聊天 室 和 留言 短程 序 ， 不 过 滤 输 入 字符 串 中 的 HTML 和 
JavaScript 语句 。 网 页 将 用 户 输入 的 字符 串 当 作 一 个 变量 ， 插 入 显示 信息 的 HIML 文件 中 。 因 
此 ， 用 户 输入 标准 的 HIML 语句 和 JavaScript 语句 ， 获 得 一 些 特殊 的 网 页 效果 。 

例如 ， 打 开 图 9-3 所 示 的 界面 ， 在 “投票 项 目 ” 文 本 框 中 ， 输 入 下 面 标准 的 HIML 语句 : 


<font size=20 color=red>ASP 漏洞 </font> 


该 页 面 没有 屏蔽 HTML 和 JavaScript 语句 ，“ASP 漏洞 ”将 以 20 磅 、 红 色 字 体 显 示 在 网 
页 中 ， 如 图 9-4 所 示 。 
利用 这 个 特点 ， 在 “投票 项 目 ” 文 本 框 中 ， 加 入 一 条 JavaScript 语句 ， 如 : 


NN 
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<a onMouseover=alert (123)> RSP 漏洞 </a> 


运行 该 段 代 码 ， 其 他 用 户 查看 该 留言 时 ， 只 要 鼠标 滑 过 “ASP 漏洞 ”， 浏 览 器 窗口 就 会 弹 
出 123 提示 信息 框 ， 如 图 9-5 所 示 。 

















[© lu Mocalhost Voto ee [seermn[P lS)| 
和 J 于 WUEE 器 扩 民 - 口 卫 区 桂 式 所 翻译 。 刁 才 国 - 
FNewPagel | 于 
由 @ EN 且 私 丰 新 闻 加 医生 好 加 于 是 各 下 载 下 本 口 者 QQ110% 是 人 :ED 站 涩 点 新 闻 条 医生 攻 加 于 器 此 下 民 四 END 中 Q 150% 
9-4 显示 HTML 语句 图 9-5 显示 JavaScript 语句 


注意 : 输入 的 JavaScript 语句 不 要 包含 单 引号 或 引号 。SQL 语句 使 用 单 引号 标识 字符 串 。 如 果 
输入 的 内 容 包 含 单 引号 或 引号 ， 插 入 时 可 能 会 出 现 错误 。 

如 果 把 上 面 这 条 JavaScript 语句 修改 成 下 面 这 条 JavaScript 语句 : 

<a onMouseover=while (1) {alert (123) }> ASP 漏洞 </a> 
当 其 他 用 户 浏 览 该 页 ， 鼠 标 滑 过 “ASP 漏洞 ”文字 时 ,浏览 器 窗口 会 弹出 无 数 个 123 提示 信息 
框 ， 导 致 浏览 器 不 能 正常 工作 。 如 果 用 户 利用 这 个 安全 漏洞 ， 写 入 一 些 可 执行 的 ASP 代码 ， 
用 户 就 可 以 窃取 管理 员 或 其 他 用 户 信息 ， 甚 至 可 以 删除 服务 器 上 的 一 些 重要 文件 。 
2. SQL 注入 
9.1.4 节 介 绍 了 构造 用 户 名 绕 过 密码 验证 的 方法 。 这 是 一 种 简单 的 利用 脚本 程序 漏洞 的 代 
也 是 常 说 的 SQL 注入 漏洞 。 
观察 图 9-3 中 各 个 链接 网 址 ， 仿 造 一 个 链接 网 址 ， 如 下 面 的 语句 : 
http://localhost/Vote/modify.asp?id=16 and exists (Select * from 
admins)&action=modify 
其 中 ，modify.asp 用 来 显示 修改 项 目的 文件 ，id 是 投票 项 目 在 数据 库 表 中 的 关键 字段 。 该 
文件 以 id 作为 查询 关键 字 进 行 查询 。 在 浏览 器 的 地 址 栏 中 ， 输 入 上 面 的 网 址 ， 如 图 9-6 所 示 。 
出 现 出 错 信息 ， 表 示 数 据 库 中 不 存在 表 admins。 





于 
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Nicrosoft JET Database Engine 错误 '80040e37" 
Microsoft Jet 狼 据 库 引 擎 茂 不 到 答 入 到 或 查询 'admins 。 确定 它 是 否 存 在 ， 以 及 它 的 名 称 的 拼写 是 否 正确 
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9-6 ”猜测 表 名 出 现 错误 信息 


/aki 





在 浏览 器 的 地 址 栏 输入 下 面 的 网 址 : 


http://localhost/Vote/modify.asp?ID=16 and exists(select * from 
VoteItem) gaction=modify 


浏览 器 显示 的 页 面 内 容 与 单 击 “ 修 改 ” 链 接 产生 的 页 面 一 致 ， 如 图 9-7 所 示 。 
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图 9-7 ”猜测 表 名 正确 
这 就 表示 数据 库 中 存在 表 VoteItem。 为 了 分 析 上 面 的 语句 ， 先 看 一 下 modify.asp 的 有 关 


代码 : 
< 条 
Dim Action ' 保 存 用 户 的 操作 类 型 : 增加 和 修改 
Dim ActionID "项 目 序号 
Dim strAct 
"获取 操作 类 型 和 项 目 序号 


Rction=Request.QueryString ("action") 
ActionID=Request .Querystring ("ID") 
' 连 接 数 据 库 
Set Conn=Server.Createobject ("Adodb.Connection") 
Conn.Connectionstring="Provider=Microsoft.Jet.OLEDB.4.0;"& 
"Data Source="&Server.MapPath ("vote.mdb") 

Conn.Oopen 
Set rs=Server.Createobject ("Adodb.Recordset") 
Sql="Select * from VoteItem where ID="gActionID 
"依据 操作 类 型 进行 相应 操作 
If Action="add" Then 

strAct=" 增 加 " 
ElseIf Action="modify" Then 

strAct=" 修 改 " 

rs.Open Sql,Conn,1,1 
End If 
$%> 


在 浏览 器 的 地 址 栏 中 ， 输 入 如 下 测试 网 址 : 


http://localhost/Vote/modify.asp?ID=16 and exists(select * from 
VoteItem) &action=modify 


分 析 一 下 这 段 代码 的 执行 流程 。 
(1) ActionID 的 值 为 : 


16 and exists(select * from VoteItem) 
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(2) Action 的 值 为 modify。 
(3) Sql 的 值 为 : 


Select * from VoteItem where ID=16 and exists(select * from VoteItem) 


(4) 函数 exists0 不 产生 任何 数据 ， 只 返回 True 或 者 False。exists() 函 数 的 参数 是 一 个 子 查 
询 。exists0) 测 试 参数 select * from VoteItem 返回 的 行 是 否 存在 : 存在 则 返回 Trme; 和 否则， 返回 
False。 

(5) 如 果 存 在 表 VoteItem， 则 返回 True， 否 则 返回 False。 从 WHERE 后 的 条 件 可 以 看 出 ， 
函数 exists() 的 返回 值 决 定 了 Sql 语句 能 否 正常 执行 。 函 数 exists0 返 回 False， 执 行 Sql 就 会 出 
背 ; 否则 正常 执行 。 

上 面 的 测试 语句 ， 可 以 用 来 猜测 数据 库 是 否 存在 指定 的 表 。 如 果 浏 览 器 返回 出 错 信息 ， 说 
明 数 据 库 中 不 存在 查询 的 表 ， 更 改 上 面 语 句 中 的 表 名 继续 进行 猜测 ;如 果 返 回 正常 信息 ， 说 明 
数据 库存 在 查询 的 表 。 这 就 对 SQL 完成 了 探测 。 

同样 ， 构 造 下 面 的 语句 ， 继 续 猜 测 该 表 中 字段 的 名 称 : 

http://localhost/Vote/modify.asp?ID=16 and exists (select Item from VoteItem) 

&action=modify 

若 浏览 器 返回 正常 信息 ， 表 示 表 VoteItem 存在 列 usemame。 同 样 地 ， 可 以 利用 SQL 语言 
的 一 些 语 句 和 函数 进行 其 他 操作 ， 甚 至 删除 表 和 控制 整个 数据 库 。 例 如 ， 利 用 len0 函 数 可 以 猜 
测 某 个 字段 的 长 度 。 

这 些 漏洞 是 程序 代码 没有 对 输入 字符 进行 检测 导致 的 。 


9.2 防范 措施 


针对 9.1 节 讲 述 的 ASP 的 一 些 常见 漏洞 ， 本 节 提 出 了 相关 的 防范 措施 。 这 些 防 范 措施 只 是 
简单 措施 ， 读 者 在 实际 应 用 时 ， 需 要 查阅 最 新 的 防范 措施 ， 才 能 提高 网 站 的 安全 性 能 。 
9.2.1 ”防范 查看 程序 源 代码 

针对 9.1 节 介 绍 的 查看 源码 的 各 种 办 法 ， 本 节 介 绍 了 相应 的 解决 办 法 。 这 些 解决 办 法 依靠 
微软 提供 的 补丁 来 解决 。 用 户 需要 下 载 最 新 的 补丁 ， 更 新 操作 系统 ， 有 效 地 预防 一 些 漏洞 。 

1. 防范 添加 特殊 符号 显示 源 代码 的 漏洞 

对 于 添加 特殊 符号 显示 源 代码 的 漏洞 ， 可 以 使 用 下 面 的 方法 进行 防范 。 

(1) 安装 微软 提供 的 补丁 程序 。 

(2) 升级 服务 器 上 的 系统 。 

2. 防范 Showcode.asp 或 Code.asp 造成 的 漏洞 


对 于 Showcode.asp 或 Code.asp 造成 的 漏洞 ， 可 以 使 用 下 面 的 方法 加 以 防范 。 
(1) 删除 IIS 自 带 的 Showcode.asp 或 Code.asp 程序 文件 。 
(2) 或 禁止 访问 该 目录 即 可 。 
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3. ISM.dll 和 Translate: f 造 成 的 漏洞 

对 于 ISM.dll 缓冲 截断 漏洞 ， 可 以 安装 Microsoft IIS5.0 或 IS4.0 的 补丁 ， 或 安装 更 高 版 本 
的 IS。 对 于 Translate:f 模 块 造成 的 漏洞 , 可 以 去 微软 网 站 下 载 补丁 修补 漏洞 。 对 于 Index Server 
造成 的 ASP 源 代码 泄露 的 漏洞 ， 也 需要 到 微软 网 站 下 载 补丁 修补 漏洞 。 


9.2.2 防范 FileSystemObject 组 件 漏洞 


解决 这 个 漏洞 的 方法 ， 可 以 删除 或 重 命名 FileSystemObject 组 件 。 在 进行 删除 或 者 重 命名 
组 件 操作 前 需要 手工 备份 注册 表 。 

下 面 是 手工 备份 和 恢复 注册 表 、 删 除 或 者 重 命名 FileSystemObject 组 件 的 方法 。 

1. 手工 备份 注册 表 

手工 备份 注册 表 的 方法 如 下 。 

(1) 手工 备份 注册 表 ， 选 择 “开始 ”|“ 和 运行 ”命令 ， 输 入 regeditexe， 如 图 9-8 所 示 。 

(2) 单 击 “确定 ”按钮 ， 弹 出 如 图 9-9 所 示 的 注册 表 界 面 。 

i- 
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图 9-8 运行 注册 表 命 令 图 9-9 注册 表 界面 


(3) 选择 “文件 ”| “导出 ”命令 ， 弹 出 “导出 注册 表 文件 ”对 话 框 ， 如 图 9-10 所 示 。 选 
择 导 出 目录 ， 并 选择 导出 范围 为 “全 部 ”， 单 击 “ 确 定 ”按钮 。 














图 9-10 备份 注册 表 
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2. 手工 恢复 注册 表 

在 Windows 状态 下 ， 恢 复 注册 表 ， 只 需要 选择 图 9-9 中 的 “文件 ” |“ 导入” 命令， 选择 
备份 文件 就 可 以 了 。 在 DOS 状态 下 ， 直 接 运 行 regedit /c D:regedit/regedit.reg。 bait 
file(100% complete) 信 息 ， 表 示 注 册 表 恢复 成 功 。 





3. 删除 FileSystemObject 组 件 


删除 FileSystemObject 组 件 的 方法 如 下 。 


选择 “开始 ” |“ 程序” 


始 ”|“ 运 
(2) 显示 如 图 9-12 所 示 的 对 话 框 ， 





“附件 ”| “命令 提示 符 ” 命 令 ， 如 图 9-11 所 示 ; 或 者 选择 “ 开 
运行 ”命令 ， 如 图 9-8 所 示 ， 输 入 Regsvr32.exe /u scrrun.dll， 按 Enter 键 。 
则 删除 FileSystemObject 组 件 成 功 ;和 否则， 需要 重新 执 


行 上 述 命令 


scrrun.dll， 如 图 9-13 所 示 ， 按 Enter 键 。 





i acrran 1 中 的 由 1UnreeisterServer 威 功 。 











图 9-11 删除 FileSystemObject 组 件 命令 图 9-12 删除 FileSystemObject 组 件 成 功 提示 
(3) 恢复 FileSystemObject 组 件 ， 只 需要 在 命令 提示 符 窗口 中 ， 输 入 命令 Regsvr32.exe 


(4) 显示 如 图 9-14 所 示 的 对 话 框 ， 则 恢复 FileSystemObject 组 件 成 功 ; 否则 ， 需 要 重新 执 


行 上 述 命令 。 
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i 外。 xcrran dl 中 的 D11RegisterServer 成 功 。 








图 9-14 恢复 FileSystemObject 组 件 成 功 提示 


9-13 恢复 FileSystemObject 组 件 命令 


4. 重新 命名 FileSystemObject 组 件 

重新 命名 FileSystemObject 组 件 的 方法 如 Ds 
(1) 打开 注册 表 ， 选 择 “ 编 辑 ”|“ 查 找 ” 

(2) 输入 scripting FileSystemObject， 单 击 “ -确定 


命令 ， 弹 出 “查找 ”对 话 框 ， 如 图 9-15 所 示 。 
”按钮 ， 开 始 搜索 注册 表 ， 如 图 9-16 所 示 。 








| 
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9-16 ”搜索 注册 表 
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9-15 ”重新 命名 FileSystemObject 组 件 





(3) 如 果 搜 索 结果 不 是 如 图 9-17 所 示 的 结果 , 按 F3 键 , 直到 出 现 如 图 9-17 所 示 的 搜索 结果 。 
(4) 右 击 搜索 到 的 项 目 ， 在 弹出 的 快捷 菜单 中 选择 “ 重 命名 ”命令 ， 如 图 9-18 所 示 。 
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图 9-17 显示 搜索 结果 图 9-18 选择 “ 重 命名 ”命令 


(5) 在 图 9-19 中 ， 输 入 该 组 件 新 的 名 称 ， 如 Scripting .FileSystemObject32， 关 闭 注册 表 。 
再 次 发 布 FileSystemObject 组 件 漏洞 一 节 的 scan.asp 文件 ， 如 图 9-20 所 示 。 











Oochost = 

a .FN 和 
hp/ocalhoseho/9 1asp x EX 

Jicrosoft VBScript 运行 时 错误 错误 “800a01ad” 

ActiveX 部 件 不 能 创建 对 象 : scripting.filesystenobject” 


/FileSysten0bject/scan asp, 行 4 
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图 9-19 输入 新 名 称 并 关闭 注册 表 图 9-20 调用 FileSystemObject 组件 
如 果 把 scan.asp 中 的 代码 : 
Set objfilesys=createobject ("scripting.filesystemobject") 


修改 为 
Set objfilesys=createobject ("scripting.filesystemobject32") 


就 会 看 到 正常 的 界面 ， 如 图 9-21 所 示 。 
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<html> head> 《meta http-equiv="Content-Type” 
content="text/html; charset=gb2312”> 
titleYasdf¢/title> </head> Cbody> Ca 
href=”scan. asp?file=index. asp”) 查 看 文件 内 容 
/a> /body> </html> 
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9-21 调用 FileSystemObject32 组 件 
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9.2.3 ”防范 从 客户 端 下 载 数 据 库 文件 


对 于 ASP 和 Access 数据 库 结 合 的 应 用 系统 ， 存 在 数据 库 文件 可 能 被 下 载 的 漏洞 。 防 止 数 
据 库 文 件 被 下 载 ， 可 以 使 用 以 下 3 种 方法 。 

(1) 为 数据 库 文件 起 个 复杂 的 、 非 常规 的 名 字 ， 并 放 到 目录 名 为 非常 规 的 目录 下 。 这 样 非 
法 用 户 想 通过 猜测 的 方式 ， 得 到 Access 数据 库 文件 名 和 路 径 就 很 难 了 。 但 是 非法 用 户 使 用 某 
些 方法 ， 查 看 到 数据 库 连 接 文件 的 内 容 ， 同 样 可 以 得 到 该 数据 库 文件 名 。 这 样 再 复杂 的 文件 名 
也 没有 作用 了 。 

有 些 程序 员 喜 欢 把 数据 库 名 称 写 在 程序 中 ， 如 下 : 

< 

Set Conn=Server.Createobject ("Adodb.Connection") 


Conn.Connectionstring="Provider=Microsoft.Jet.OLEDB.4.0;"& 
"Data Source="&Server.MapPath ("user.mdb") 





$%> 


假如 非法 用 户 获 取 了 源 程序 ， 也 就 获得 了 Access 数据 库 的 名 字 。 因 此 ， 建 议 在 ODBC 里 
设置 数据 源 ， 使 用 ODBC 数据 源 。 

(2) 数据 库 文件 名 使 用 ODBC 数据 源 代 替 。 使 用 ODBC 数据 源 ， 即 使 非法 用 户 得 到 了 连 
接 文件 ， 也 只 能 获取 ODBC 数据 源 名 称 ， 而 数据 库 文件 的 存储 路 径 和 文件 名 仍然 无 法 得 到 代 
码 如 下 : 


< 条 

Set Conn=Server.Createobject ("Adodb.Connection") 

'dsn 为 Access 数据 库 的 DSN 名 字 

dsn="Access DSN" 

' 通 过 DSN 打开 Access 数据 库 文件 

Conn.open dsn 

%> 

(3) 对 数据 库 进 行 加 密 。 对 数据 库 文 件 设 置 打开 密码 ; 对 存 入 数据 库 文件 中 的 内 容 进 行 加 
密 ， 读 取 时 再 进行 解密 。 即 使 非法 用 户 下 载 到 数据 库 文件 ， 也 会 增加 破解 的 难度 。 


9.2.4 防范 密码 验证 漏洞 


对 于 3 种 密码 验证 方法 的 漏洞 ， 分 别 列举 防范 措施 。 

1. 防范 SQL 语句 造成 的 密码 验证 漏洞 

对 于 SQL 语句 验证 方法 的 漏洞 ， 可 以 使 用 程序 代码 来 解决 这 个 漏洞 。 具 体 解决 的 方法 
如 下 。 
(1) 验证 输入 字符 的 合法 性 。 
在 执行 密码 验证 之 前 ， 对 用 户 输入 的 用 户 名 和 密码 进行 合法 性 判断 。 屏 项 掉 输 入 字符 中 的 
单 引 号 、 竖 线 、 等 号 等 特殊 字符 。 可 以 使 用 下 面 的 方法 替换 掉 这 些 特殊 符号 : 


<% 
username =Replace (username,™'","") ' 使 用 空格 代替 单 引 号 
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Username =Replace (username, "|","") "使 用 空格 代替 竖 线 
Username =Replace (username, "=","") "使 用 空格 代替 等 号 
pass =Replace (pass,"'","") 

名 > 


(2) 分 步 验证 用 户 名 和 密码 合法 性 。 
将 用 户 名 和 密码 的 合法 性 验证 分 成 2 步 进行 ,使 用 下 面 的 语句 验证 密码 合法 性 。 显 然 ， 本 
解决 方法 避免 用 户 名 和 密码 做 逻辑 或 运算 校 验 ， 解 决 了 绕 过 密码 验证 的 漏洞 。 代 码 如 下 : 


< 要 
' 下 面 连接 数据 库 
'Server 对 象 的 CreateObject 方法 建立 Connection 对 象 
Set Conn=Server.CreateObject ("ADODB.Connection") 
Conn.Connectionstring="Provider=Microsoft .Jet.OLEDB.4.0;"& 
"Data Source="&Server.MapPath ("User.mdb") 
Conn.open 
"使 用 空格 代替 单 引号 等 关键 字 
Username =Replace (username,"'","") 
username =Replace (username, "|","") 
username =Replace (username, "=","") 
pass =Replace (pass,"'","") 
Sql="select * from Users Info where UserName='"&UserName g&"' " 
' 读 取 用 户 数据 
Set rs=Conn.Execute(Sql) 
' 判 断 是 否 存 在 该 用 户 
If rs.EOF Then 
' 用 户 不 存在 ， 显 示 错误 信息 
Errmsg = "用 户 不 存在 " 
Else 
"判断 用 户 名 是 否 正确 
If pass=rs ("PASS") Then 
Response.write ("登录 成 功 ") 
Else 
Response.write ("密码 不 正确 ") 
End If 
End If 
务 > 


2. 防范 下 载 Access 数据 库 

对 于 Access 数据 库 可 能 被 下 载 的 漏洞 ， 解 决 办 法 见 9.2.3 节 : 防范 下 载 数据 库 文件 的 解决 
办 法 。 

3. 防范 URL 直接 访问 

对 于 使 用 URL 直接 访问 的 漏洞 , 需要 在 密码 验证 的 ASP 网 页 进行 相应 的 处 理 。 使 用 Cookies 
或 Session 判断 用 户 是 否 登录 : 如 果 登 录 ， 才 能 读 取 这 个 页 面 ， 否 则 ， 转 向 登录 页 面 。 

(1) 用 Cookies 实现 。 

如 果 客 户 已 经 登录 过 , 登录 的 信息 记录 在 客户 端的 Cookies 中 。 每 个 页 面 加 上 Cookie 验证 ， 
就 可 以 防止 用 户 直接 浏览 这 些 限制 访问 的 页 面 。 代 码 如 下 : 
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< 村 
Response.Cookies ("UserID")=rs.Fields ("UserID") 
Response.Cookies ("User")=rs.Fields ("UserName") 
名 > 


Cookie 验证 的 代码 如 下 : 


<% 
If Request.Cookies ("UserID") ="" and Request.Cookies ("User")<>"" Then 
Response.write ("登录 成 功 ") 

End If 

务 > 

(2) 用 Session 实现 。 

将 客户 成 功 登 录 的 信息 记录 到 Session 中 ， 用 户 就 可 直接 浏览 其 他 限 权 访问 的 页 面 。 使 用 
Session 变量 记录 下 用 户 输 入 的 用 户 名 和 口令 。 代 码 如 下 : 


Session ("hl2as3u8") =username & password 


这 个 Session 变量 的 名 字 很 怪 ， 一 般 来 说 攻击 者 是 猜 不 到 的 。 在 限 权 访问 页 面 的 开头 ， 检 
仿 Session 变量 的 值 。 其 值 不 仅 要求 非 空 ， 而 且 是 由 特定 的 用 户 名 和 密码 组 合成 的 字符 串 。 如 
果 发 现 Session 值 不 符合 要 求 ， 立 即 终止 程序 的 执行 ， 或 者 显示 警告 信息 。 


9.2.5 ”防范 脚本 程序 漏洞 


对 于 脚本 程序 漏洞 ， 防 范 是 很 复杂 的 ， 也 是 很 困难 的 。ASP 程序 员 需 要 对 脚本 漏洞 有 着 深 
入 的 了 解 。 下 面 的 防范 措施 只 是 简单 的 防范 方法 ， 让 读者 了 解 一 下 如 何 防范 脚本 漏洞 。 
1. 屏蔽 HTML 和 JavaScript 语言 中 的 关键 字符 


脚本 程序 漏洞 大 多 是 程序 代码 没有 对 输入 字符 进行 检测 导致 的 漏洞 。 因 此 ， 编 写 类 似 的 程 
序 时 , 要 检验 用 户 提交 的 字符 串 。 检 验 的 方法 可 以 屏蔽 掉 HIML 和 JavaScript 语言 的 关键 字符 ， 
如 “<”、“>”、“ ”等 。 经 过 屏蔽 操作 之 后 ， 输 入 的 HIML 和 JavaScript 语句 在 执行 时 就 
会 出 现 语法 错误 。 代 码 如 下 : 


< 

' 蔡 换 掉 单 引号 

StrContent =Replace(strContent,"'","") 
:替换 掉 "<m 

StFrContent =Replace(strContent,"<","") 
! 替 换 掉 ">" 

StFrContent =Replace(strContent,">","") 
$%> 


很 多 网 站 只 在 用 户 注册 、 聊 天 室 或 留言 簿 等 处 ， 对 特殊 字符 进行 屏蔽 ， 而 修改 用 户 资料 的 
面 上 缺少 脚本 的 过 滤 。 非 法 用 户 登 录 后 ， 利 用 修改 资料 的 功能 仍然 可 以 输入 非法 代码 。 对 用 
提交 数据 进行 检测 和 屏蔽 ， 比 较 好 的 方法 是 写 一 个 数据 检查 的 功能 的 函数 。 需 要 检测 输入 的 
面 ， 包 含 并 调用 该 函数 ， 屏 蔽 掉 用 户 输入 的 HIML 和 JavaScript 语句 。 
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2. 防范 SQL 注入 漏洞 

防范 SQL 注入 漏洞 的 基本 操作 就 是 监控 提交 的 数据 ， 以 确保 SQL 指令 的 可 靠 性 。 这 些 数 
据 可 能 来 自 Request 对 象 中 的 QueryString、Form 和 Cookies 等 。 常 用 的 方法 如 下 。 

(1) 屏蔽 用 户 输入 的 SQL 关键 字 ， 如 select、insert、delete、from 等 。 代 码 如 下 : 


< 要 

'" 蔡 换 掉 单 引号 

strContent =Replace(strContent,"'","") 

' 蔡 换 掉 ";"， 防 止 多 个 SQL 语句 结合 在 一 块 提交 

strContent =Replace(strContent,";","") 

"检查 是 否 存在 其 他 关键 字 

"检查 是 否 存在 char 为 了 避免 用 户 使 用 char () 函数 代替 字符 

"例如 使 用 char (85) 代替 'U" 

StrContent=Lcase (strContent) 

If Instr (strContent,"select")>0 or Instr(strContent,"insert")>0 or 

Instr(strContent, "delete")>0 or Instr(strContent," from")>0 or 

Instr(strContent, "where")>0 or Instr(strContent,"char")>0Then 
Response .write ("输入 字符 中 存在 非法 字符 ") 

End If 

%> 


(2) 限制 用 户 输入 字符 的 长 度 。 代 码 如 下 : 


< 条 

"判断 用 户 输入 字符 的 长 度 是 否 超过 指定 的 长 度 

"如 果 超 过 指定 的 长 度 则 显示 错误 信息 

If len(strContent) >10 Then 
Response .write ("输入 字符 长 度 过 长 ") 
Response.End 

End If 

%> 


(3) 数据 库 中 的 表 名 和 字段 名 采用 非常 规 命名 。 
(4) 检查 输入 变量 的 类 型 。 
检查 输入 变量 的 类 型 可 以 使 用 下 面 的 形式 : 


<% 

Dim int Num 

int Num=Request ("ID") 
"防止 输入 为 空 

If IsEmpty(int Num) Then 
Response.write (" 输 入 为 空 ") 
End If 

"int Num 为 数值 型 ， 转 换 正确 
"否则 程序 报错 

"还 可 以 加 上 判断 数值 范围 的 语句 
Int Num=Cint (int Num) 

%> 


其 中 ，ID 只 能 为 数字 。 这 种 形式 的 攻击 防范 方法 有 很 多 。 最 简单 的 就 是 ， 判 断 输 入 是 否 


NN 





1 
oe 
第 9 章 ASP 网 站 安全 防护 ”加 = 


是 数字 。 还 可 以 采用 限制 输入 字 长 的 方法 ， 数 字 的 长 度 一 般 8 位 就 够 了 ， 超 过 8 位 立即 显示 
错误 。 
(5) 防范 伪造 Cookies 进行 远程 注入 攻击 。 
伪造 Cookies 远程 攻击 时 ， 提 交 数 据 的 站 点 不 是 本 网 站 。 通 过 判断 用 户 是 否 提交 数据 的 网 
站 , 可 以 防范 这 种 攻击 。 使 用 Request.ServerVariables 的 HITP REFERER 和 SERVER NAME， 
可 以 实现 。 代 码 如 下 : 
< 
"获取 网 页 转向 前 的 网 址 
Serverl=CStr (Request.ServerVariables ("HTTP REFERER")) 
' 获 取 当 前 页 的 地 址 。 该 网 页 的 形式 为 nttp://localhost/asd.asp 
Server2= CStr (Request .ServerVariables ("SERVER NAME")) 
IE Mid(Serverl,8,1len(Server2) )<> Server2 Then 
Response.write("<table center><tr><td>") 
Response.write (" 提 交 路 径 有 误 ") 
Response.write("</td></tr>") 
Response.End 
End If 
务 > 


以 上 只 是 防止 SQL 注入 的 几 种 方法 。 为 更 好 地 防范 SQL 注入 攻击 , 除了 对 表 名 和 字段 名 
采用 非常 规 命名 外 ， 还 需要 更 好 地 保护 管理 员 的 密码 。 管 理 员 密码 要 保证 至 少 10 位 的 数字 、 
字母 和 特殊 字符 的 组 合 ， 并 加 密 用 户 密码 。 这 样 网 站 站 点 的 安全 性 就 会 大 大 地 提高 ， 即 使 出 现 
了 SQL 注入 漏洞 ， 攻 击 者 也 不 可 能 马上 攻 下 网 站 站 点 。 




















9.3 防范 实例 


现在 网 络 存在 很 多 探测 网 络 服务 器 的 工具 ， 本 节 讲 述 防范 一 些 探测 工具 的 例子 。 主 要 防范 
的 例子 如 下 。 

(1) 上 传 下 载 探 针 防范 。 

(2) SQL 指令 探 针 防范 。 

(3) ASP 探 针 防范 。 


9.3.1 上 传 下 载 探 针 防范 


现在 很 多 网 站 提供 了 上 传 文件 功能 ， 如 允许 上 传 卫 G 图 片 和 RAR 压缩 文件 。 但 是 由 于 一 
些 原 因 ， 一 些 网 站 上 传 功能 存在 漏洞 ， 存 在 被 攻击 者 上 传 可 执行 文件 的 可 能 性 。 著 名 的 动 网 上 
传 漏洞 就 是 一 例 。 非 法 用 户 模拟 用 户 正常 上 传 页 面 ， 并 修改 上 传 路 径 和 Cookies 参数 ， 提 交 到 
网 站 ;然后 修改 上 传 页 面 的 内 容 为 木马 代码 。 这 样 就 实现 了 非法 文件 的 上 传 。 

下 面 是 某 网 站 上 传 页 面 的 部 分 代码 : 

<form name="form" method="post" action="upfile.asp"> 


<input type="hidden" name="filepath" value="uploadface"> 
<input type="hidden" name="act" value="upload"> 
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<input type="file" name="filel"> 

<input type="hidden" name="fname"> 

<input type="submit" name="submit" value=" 上 传 " > 
</form> 


非法 用 户 使 用 特定 的 软件 (如 老兵 上 传 工具 ) 模 拟 该 页 面 ,构造 变量 flepath 的 值 为 “/shell.asp 
”( 口 表示 空 字 符 ， 其 ASCII 码 值 为 0， 可 以 使 用 工具 构造 )， 抓 取 该 页 面 的 Cookies 的 值 ， 
发 送 该 页 面 。 

upfile.asp 中 存在 如 下 代码 : 

< 

SavePath=Request .Form("filepath ") 

FileName= Request.Form("filel") 


FileName=SavePath & FileName 
务 > 




















该 文件 得 到 用 户 的 输入 ，SavePath 变量 的 值 为 “/shell.asp 口 ”; FileName 的 值 为 “/shellasp 
/tupianjpg”(tupian.jpg 为 用 户 上 传 的 文件 )。 程 序 碰 到 空 字符 时 ， 认 为 字符 串 已 经 结束 ， 所 以 
FileName 的 值 应 该 为 “/shell.asp”。 这 就 在 服务 器 空间 中 建立 了 一 个 .asp 文件 。 

非法 用 户 在 浏览 器 的 地 址 栏 中 输入 网 址 (http://URL/bbs/shell.asp)， 访 问 该 文件 ， 然 后 输入 
木马 代码 。 当 非法 用 户 再 次 访问 该 文件 ， 就 可 以 获取 需要 的 信息 。 以 上 只 是 一 种 上 传 的 方法 。 
非法 用 户 会 通过 各 种 方式 ， 探 测 上 传 漏洞 。 防 范 上 传 探测 ， 可 以 从 IS 和 ASP 程序 两 个 方面 进 
行 防范 。 

1. llS 的 设置 


在 HS 中 ， 取 消 不 必要 目录 的 “执行 ”权限 。 这 种 目录 下 的 文件 ， 只 能 读 取 。 这 样 设置 以 
后 ， 即 使 攻击 者 把 asp 木马 上 传 到 该 目录 下 ， 也 不 能 运行 asp 木马。 取消“ 执行” 权限 的 方法 



































如 下 。 
(1) 选择 “开始 ”|“ 程 序 ”|“ 管 理工 具 ”|“Internet 信息 服务 (IIS) 管 理 器 ”命令 ， 弹 出 如 
图 9-22 所 示 的 对 话 框 。 
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9-22 “Internet 信息 服务 (IIS) 管 理 器 ”对 话 框 
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射 。 





(2) 右 击 “ 默 认 网 站 ”， 在 弹出 的 快捷 菜单 中 选择 “属性 ”命令 ， 如 图 9-23 所 示 。 

(3) 弹出 如 图 9-24 所 示 的 对 话 框 ， 选 择 “ 主 目录 ”选项 卡 ， 只 选中 “ 读 取 ” 复 选 框 。 
另外 , 在 IIS 的 运用 程序 配置 中 ， 只 留 下 .asp、-.asa、.aspx 三 个 映射 删除 不 需要 的 程序 映 
删除 方法 如 下 。 

(1) 在 图 9-24 所 示 的 对 话 框 中 ， 选 择 “ 主 目录 ”选项 卡 ， 单 击 “ 配 置 ”按钮 ， 弹 出 如 


图 9-25 所 示 的 对 话 框 。 





图 9-23 选择 “ 属 图 9-24 “ 主 目录 ”选项 卡 图 9-25 “应 用 程序 配置 ”对 话 框 
性 ”命令 
(2) 选择 不 需要 的 映射 ， 单 击 “ 删 除 ” 按 钮 就 可 以 了 。 
2. ASP 程序 修改 


这 


(1) 检测 上 传 目录 名 和 文件 名 。 
路 径 或 文件 名 包含 空 字符 是 导致 漏洞 产生 的 原因 。 检 测 上 传 路 径 和 文件 名 是 否 存在 空 字 
可 以 在 一 定 程度 上 避免 该 漏洞 。 下 面 是 去 除 上 传 路 径 和 文件 名 空 字符 的 代码 ; 


< 
"检查 空 字符 
Public Function CheckSpecialchar (FileName) 
"判断 字符 是 否 为 空 ， 为 空 则 结束 程序 
If IsEmpty(FileName) Then Exit Function 
FileName = Lcase (FileName) 
"判断 字符 长 度 是 否 一 至 
If Instr (FileName,".") <> InstrRev(FileName,".") Then 
Msg=" 存 在 非法 字符 " 
CheckspecialChar=false 
End If 
ChkFileName = Replace (FileName,Chr (0),"") 
End Function 
%> 


(2) 检测 文件 内 容 。 
检测 用 户 提交 的 文件 内 容 ， 是 否 包含 ASP 程序 中 的 一 些 特 定 关键 字 ， 例 如 “Server ”和 


“.Createobject” 等 。 下 面 是 检测 特定 关键 字 的 代码 : 
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<%$ 


'strFileContent 为 用 户 提交 的 文件 内 容 
Function IncludeKeyWord(strFileContent) 
"HaveKey 表示 文件 内 容 是 否 包含 关 键 字 
' 为 False 表示 没有 特定 关键 字 ， 为 True 则 包含 特定 关键 字 
HaveKey=false 
' 设 定 的 关键 字 
strKeyWords="server|createobject|execute|encodeleval|request|activexobj 
ect|language=" 
strKeyWord=split (strKeyWords, "|") 
"转换 成 小 写 ， 防 止 用 户 把 关键 字 写 成 大 写 蒙混 过 关 
strFileContent=LCase (strFileContent) 
' 检 测 提 交 内 容 是 否 含有 特定 关键 字 
For i=0 to ubound (strKeyWord) 
' 返 回 特定 关键 字 在 提交 内 容 中 的 位 置 
n=Instr (strFileContent, strKeyWord (i)) 
if n>0 Then 
' 如 果 包 含 server， 则 该 关键 字 后 必须 为 " ." 
IE Instr (strKeyWord(i),"server")>0 Then 
m=n+6 
"去 除 server 后 面 的 空格 
Do while trim(Mid(strFileContent,m,1))="" and 
m<=len (strFileContent)-1 
m=m+1 
loop 
' 检 测 下 一 个 字符 是 否 为 "." 
If Mid(strFileContent,m,1)="." Then 
"包含 "server." 终 止 循环 ， 设 置 HaveKey 
HaveKey=true 
Exit For 
End If 
End If 
"检测 是 否 包 含 " .createobject" 和 ". encode" 
If Instr(strKeyWord(i),"createobject")>0 or 
Instr (strKeyWord (i),"encode")>0 Then 
n= 
' 去 除 关键 字 前 面 的 空格 
Do while trim(Mid(strFileContent,m,1))="" and m>1 
m=m-1 
loop 
"判断 前 面 的 字符 是 "." 
If Mid(strFileContent,m,1)="." Then 
HaveKey=true 
Exit For 
End If 
End If 
Exit For 
End If 
Next 
"设置 该 函数 的 返回 值 
IncludeKeyWord=HaveKey 
End Function 
名 > 
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9.3.2 ”SQL 指令 探 针 防范 


SQL 指令 探 针 就 是 非法 用 户 使 用 程序 ， 动 态 生 成 特殊 的 SQL 指令 语句 ， 探 测 网 站 服务 器 
数据 库 系统 , 是 否 存在 SQL 注入 漏洞 。 对 于 探测 ， 要 通过 各 种 手段 监控 用 户 的 输入 , 确保 SQL 
指令 的 可 靠 性 。 这 种 方法 可 以 提高 程序 代码 的 安全 性 ,减少 程序 漏洞 的 出 现 。 具 体 方法 可 以 参 
考 9.2.5 节 的 防范 SQL 注入 漏洞 的 方法 。 

1. 限制 Web 应 用 程序 访问 数据 库 的 用 户 权 限 


另外 , 为 了 减少 SQL 指令 注入 所 引起 的 危害 , 必须 限制 Web 应 用 程序 访问 数据 库 的 权限 。 
当 利用 SQL 注入 攻击 Web 服务 器 成 功 后 ， 如 果 Web 服务 器 以 操作 员 (DBO) 身 份 访问 数据 库 ， 
非法 用 户 就 可 能 开除 所 有 表格 、 创 建新 表格 等 ， 以 超级 用 户 (sa) 的 身份 访问 数据 库 ， 非 法 用 户 
就 可 能 控制 整个 SQL 服务 器 。 因 此 ， 只 需要 给 访问 数据 库 的 对 象 ， 分 配 必需 权限 的 账户 就 可 
以 了 。 

2. 禁止 出 错 信息 


禁止 由 IIS 发送 详 细 错误 信息 ， 所 有 错误 信息 转 到 自 定义 的 错误 页 面 。 这 样 可 以 大 大 减少 
非法 用 户 获取 详细 错误 信息 的 机 会 ， 也 就 减少 了 非法 用 户 SQL 指令 注入 成 功 的 可 能 。 

下 面 是 在 Windows 2003 Server 操作 系统 上 上， 创建 自 定义 的 出 错 页 面 的 步骤 。 在 Windows 
2000 Server 操作 系统 上 创建 步骤 类 似 ， 不 再 介绍 。 有 具体 步骤 如 下 。 

(1) 选择 “开始 ” |“ 程序 ”|“ 管 理工 具 ”|“Internet 信息 服务 (IIS) 管 理 器 ”命令 ， 弹 出 如 
图 9-22 所 示 的 对 话 框 。 

(2) 编辑 一 个 显示 错误 的 页 面 。 

(3) 右 击 “默认 网 站 ”并 在 弹出 的 快捷 菜单 中 选择 “属性 ”命令 ， 弹 出 “默认 网 站 属性 ” 
对 话 框 ， 切 换 到 “ 自 定 义 错误 ”选项 卡 ， 如 图 9-26 所 示 。 

(4) 在 “HTTP 错误 ” 列 ， 选 择 “500: 100” 项 。 

(5) 单 击 “编辑 ”按钮 ， 弹 出 如 图 9-27 所 示 的 对 话 框 。 





RM | 性 志 。 | 。 TSAIT 病夫 器 | 主 B 录 | 文 痢 
目录 安全 性 1 MT 自 定义 堵 设 
IT? 外 误 消 息 


目 定 义 错误 消息 可 以 是 服务 器 上 的 绝对 URL 或 指 问 莫 个 文件 前 指针 。 





博识 代码 。 s00 。 子 村 误 代码 ，。 io0 
完 久 Tateraal Server Brror - AS errer 
请 [mr 可 


























Wm | | 机 CE | ww | ww | 
图 9-26 “ 自 定义 错误 ”选项 卡 图 9-27 “编辑 自 定义 错误 属性 ”对 话 框 


(6) 在 “消息 类 型 ”下 拉 列 表 框 中 选择 URL， 在 URL 文本 框 中 输入 自 定义 错误 页 面 的 路 
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径 ， 单 击 “ 确 定 ”按钮 。 

(7) 在 图 9-26 中 切换 到 “ 主 目录 ”选项 卡 。 

(8) 单 击 “ 配 置 ”按钮 ， 弹 出 “应 用 程序 配置 ”对 话 框 。 

(9) 切换 到 “调试 ”选项 卡 ， 如 图 9-28 所 示 。 选 中 “向 客户 端 发 送 下 列 文本 错误 消息 (T)” 
单 选 按钮 ， 单 击 “确定 ”按钮 。 














[一 一 
厅 局 用 heP 服务 加 说 有 本 油 式 ) 
末 局 用 jay 实 记 这 有 本 洒 试 0 




















Cu |]_ wm | 





图 9-28 “调试 ”选项 卡 
9.3.3 ASP 探 针 防范 


ASP 探 针 ， 也 是 一 个 普通 的 ASP 程序 ， 可 以 用 来 探测 服务 器 与 ASP 有 关 的 参数 。 探 针 探 
测 的 参数 主要 有 服务 器 概况 、 所 支持 的 组 件 以 及 一 些 变量 的 值 。 下 面 介绍 ASP 探 针 的 实现 
方法 。 

1. 获取 服务 器 概况 

服务 器 概况 包括 服务 器 地 址 、 服 务 器 全、IIS 版 本 以 及 服务 器 操作 系统 版 本 等 情况 ， 有 具体 
的 实现 方法 如 下 。 

(D 获取 服务 器 地 址 : 


<%=Request .ServerVariables ( "SERVER NAME")%> 


(2) 获取 服务 器 下: 


<%=Request .ServerVariables ("LOCAL RDDR" ) 委 > 


(3) 获取 IIS 版 本 ; 


<%=Request .ServerVariables ("SERVER_SOFTWRRE" ) 当 > 


(4) 获取 服务 器 操作 系统 版 本 : 


<%$ 

Set WshShell = server.CreateObject ("WScript.Sshell") 
Set WshSysEnv = WshShell .Environment ("SYSTEM") 

OkOS = cstr (WshSysEnv ("OS")) 

名 > 
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(5) 获取 服务 器 CPU 信息 : 


<$ 

Set WshShell = server.CreateObject ("WScript.Sshell") 
Set WshSysEnv = WshShell .Environment ("SYSTEM") 
OKCPU = cstr (WshSysEnv ("PROCESSOR IDENTIFIER")) 

%> 


2. 获取 服务 器 支持 的 组 件 信 息 


以 检测 服务 器 是 否 支 持 MSWC.AdRotator 组 件 为 例 ， 下 面 是 检测 服务 器 是 否 支 持 
MSWC.AdRotator 组 件 的 代码 : 


< 
"获取 服务 器 是 否 支持 该 组 件 信息 
str=HaveObj ("Scripting.FileSystemobject ") 
"判断 服务 器 是 否 支持 该 组 件 
If str=False Then 
Response.write ("不 支持 Scripting.FileSystemobject 组 件 ") 
Else 
Response.Wrtie (" 支 持 Scripting.Filesystemobject 组 件 ") 
End If 
"判断 服务 器 是 否 支持 指定 的 组 件 
"这 是 一 种 办 法 。 在 Server 一 章 也 介绍 了 另外 一 种 办 法 ， 读 者 可 以 参考 6.2.2 节 
Function Haveobj (strObj) 
"启动 错误 处 理 程序 
on error resume next 
Dim Have ' 保 存 创 建 组 件 是 否 成 功 信 息 。True 为 创建 组 件 成 功 
Have=false 
Dim str 
= 
' 创 建 该 组 件 
set Obj=server.CreateObject (strObj) 
"判断 是 否 出 现 错误 
If -2147221005 <> Err then 
Have = True 
"获取 该 组 件 信息 
str = Obj .version 
if str ="" or isnull(str) then str = Obj.about 
end if 
set TestObj=nothing 
If Have Then 
' 获 取 该 组 件 的 信息 
HaveObj=str 
Else 
' 返 回 不 支持 信息 
HaveObj=false 
End If 
End Function 
名 > 
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3. 防范 ASP 探 针 


这 些 探 针 会 探测 到 服务 器 支持 的 系统 组 件 、 不 安全 的 组 件 以 及 其 他 重要 的 系统 信息 。 这 就 
给 非法 用 户 提供 了 丰富 的 信息 ， 这 是 极 不 安全 的 。 为 了 防范 ASP 探 针 ， 需 要 删除 不 需要 的 一 
些 组 件 或 者 重 命 名 一 些 组 件 。 

获取 服务 器 支持 的 组 件 情 况 ， 可 以 使 用 阿 江 探 针 探测 服务 器 ， 然 后 参照 9.2.3 节 防 范 
FileSystemObject 组 件 漏洞 的 方法 ， 删 除 或 者 重 命名 组 件 。 阿 江 探 针 是 一 种 比较 常用 的 ASP 探 
针 ， 可 以 在 网 上 下 载 到 。 








9.4 改 虫 、 小 偷 程序 的 防范 


随 着 Internet 的 迅速 发 展 , 网 络 信息 急速 膨胀 。Intemet 成 为 人 们 快速 获取 信息 的 主要 途径 ， 
如 何 快 速 地 寻找 ， 并 利用 这 些 信 息 成 为 一 个 巨大 的 挑战 。 搜 索引 擎 ， 如 百度 和 Yahoo!， 成 为 辅 
助 用 户 检 索 Internet 信息 的 工具 。 疏 虫 程序 就 是 搜索 引擎 的 关键 部 件 ， 主 要 负责 发 现 和 搜集 
信息 


so 


9.4.1 ”的 虫 、 小 偷 程序 的 原理 


谍 虫 程序 是 一 个 自动 提取 网 页 的 程序 。 它 一 般 根据 用 户 提供 的 链接 地 址 ， 获 得 一 个 Web 
文档 , 分 析 该 文档 代码 ,查找 文档 内 所 有 链接 到 其 他 网 页 的 标签 。 然后， 按照 广度 或 深度 算法 ， 
随机 选择 一 个 链接 打开 ， 对 新 Web 文档 分 析 并 寻找 新 的 链接 。 如 此 反复 ， 理 论 上 可 遍历 所 有 
的 Web 文档 。 

谍 虫 程序 是 一 种 搜索 引擎 搜集 网 页 的 自动 化 程序 ， 是 搜索 引擎 的 关键 部 件 。 扑 虫 程序 存在 
着 一 定 的 局 限 性 : 不 同 领域 的 用 户 往往 具有 不 同 的 检索 目的 和 需求 ， 而 稚 虫 程序 尽 可 能 地 查找 
网 页 中 所 有 链接 。 因 此 ， 息 虫 程序 所 返回 的 结果 ， 包 含 大 量 用 户 不 关心 的 网 页 。 

另外 ， 还 有 定向 抓 取 网 页 相关 资源 的 网 络 疏 虫 。 这 种 爬虫 根据 用 户 的 需求 主题 ， 依 据 网 页 
分 析 算法 ， 过 滤 与 主题 无 关 的 链接 ， 保 留 有 用 的 链接 。 将 有 用 链接 放 入 等 待 抓 取 的 URL 队列 ， 
根据 一 定 的 搜索 策略 ， 从 队列 选择 下 一 步 要 抓 取 的 网 页 URL。 重复 上 述 过 程 ， 直到 达到 某 一 条 
件 停止 。 

小 偷 指 的 是 小 偷 程序 。 通 俗 地 讲 ， 就 是 专门 偷 其 他 网 站 数据 资料 的 程序 。 小 偷 程序 实际 上 
是 通过 某 些 组 件 (如 XML 中 的 XMLHTTP 组 件 )， 调 用 其 他 网 站 的 网 页 。 对 该 网 页 的 HIML 代 
码 进行 分 析 ， 查 找 感 兴趣 的 内 容 并 输出 。 例 如 ， 某 某 网 的 新 闻 小 偷 、 某 某 娱乐 网 电影 小 偷 、 某 
某 音乐 网 站 小 偷 和 即时 天 气 预报 小 偷 等 。 这 些小 偷 程序 把 偷盗 的 数据 ， 用 来 丰富 它们 的 网 站 ， 
甚至 所 有 网 页 内 容 都 是 来 自 其 他 网 站 。 由 于 小 偷 程序 的 数据 来 自 其 他 网 站 ， 它 将 随 着 该 网 站 的 
更 新 而 更 新 ， 可 以 节省 服务 器 资源 。 这 些小 偷 程序 都 是 专门 针对 某 个 网 站 的 程序 ， 如 果 目 标 网 
站 进行 升级 维护 ， 那 么 小 偷 程序 也 要 进行 相应 修改 。 

从 疏 虫 程序 和 小 偷 程序 的 介绍 可 以 看 出 ,小偷 程序 可 以 看 作 定向 抓 取 网 页 相关 资源 的 网 络 
疏 虫 。 但 是 疏 虫 程序 依据 网 页 中 的 链接 进行 搜索 ， 而 小 偷 程序 大 多 是 抓 取 某 个 网 页 固定 内 容 ， 
如 即时 天 气 预报 小 偷 ， 或 者 对 网 页 中 特定 链接 进行 搜索 ， 如 某 某 网 的 新 闻 小 偷 等 。 
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9.4.2 ”记录 访问 记录 


使 用 数据 库 或 Cookies 可 以 记录 访问 记录 。 下 面 介绍 如 何 使 用 Cookies 记录 访问 记录 。 
下 面 的 实例 使 用 Cookies， 记 录 一 分 钟 内 该 用 户 的 访问 次 数 。 代 码 如 下 : 

< 村 

Dim Num, Count 

Count =Request.Cookies ("Count ") 

If Count ="" Then 


"设置 保存 用 户 访问 次 数 的 初始 值 
Fesponse.Cookies ("Count ")=1 
Count =1 


"设置 保存 用 户 访问 次 数 cookie 的 有 效 时间 
Fesponse.cookies ("Count ") .expires=dateadd("s",60,now()) 
Else 
' 对 访问 次 数 加 1 
response.Cookies ("Count ")= Count +1 
End If 
$%> 


9.4.3 ”禁止 扑 虫 、 小 偷 程序 的 访问 


疏 虫 程序 和 小 偷 程序 会 大 量 占用 服务 器 资源 ， 造 成 服务 器 资源 大 量 的 浪费 。 因 此 ， 需 要 禁 
止 一 些 疏 虫 和 小 偷 的 访问 。 

限制 疏 虫 程序 访问 Web 站 点 的 方法 ， 一 般 使 用 Robot 限制 协议 。 目 前 ， 大 部 分 正规 朴 虫 
程序 都 遵守 该 协议 。 实 现 Robot 限制 协议 的 关键 ， 是 在 Web 站 点 根 目录 下 放置 一 个 文本 文件 
Robottxt。 疏 虫 程序 在 访问 一 个 站 点 时 ， 首 先 读 取 该 文件 ， 分 析 其 中 的 内 容 ， 并 按照 Robot.txt 
中 规定 不 去 访问 某 些 文件 。 协议 具体 内 容 可 以 在 互联 网 查找 到 。 限 制 用 户 在 单位 时 间 内 访问 次 
数 的 方法 ， 可 以 禁止 息 虫 程序 和 小 偷 程 序 访 问 。 

1. 使 用 Request.Cookies 来 限制 访问 次 数 


下 面 的 实例 使 用 Request.Cookies 来 限制 访问 次 数 。 代 码 如 下 : 


< 

'Num 为 限制 用 户 访问 的 次 数 

"Count 为 记录 用 户 访问 的 次 数 

Dim Num, Count 

Num=10 

Count =Request.Cookies ("Count ") 
Tf Counk 三 Then 
response.Cookies ("Count ")=1 


Count =1 

response.cookies ("Count ") .expires=dateadd("s",60,now()) 
Else 

response.Cookies ("Count ")= Count +1 

End If 


"如 果 用 户 在 规定 的 时 间 内 访问 次 数 超过 规定 的 次 数 则 禁止 该 用 户 访问 
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if int(Count)>int (Num) then 
response.end 

End If 

%> 


2. 使 用 HTTP_USER_AGENT 限制 心 虫 、 小 偷 程序 


惟 虫 程序 和 小 偷 程 序 实际 是 访问 网 站 的 一 些 专用 工具 。 为 了 限制 这 些 工具 访问 网 站 ， 可 以 
使 用 HITP USER AGENT 禁止 这 些 工 具 访问 网 站 。 禁 止 疏 虫 程序 和 小 偷 程序 访问 的 代码 如 下 : 


< 村 

"获取 浏览 器 信息 

IISInfo = Request.ServerVariables ("HTTP USER AGENT") 

"根据 返回 的 浏览 器 信息 判断 浏览 器 类 型 

IsIE=false 

IISInfo=Lcase (IISInfo) 

If Instr(IISInfo, "netscape")>0 or Instr(IISInfo, "msie")>0 or 

Instr(IISInfo, "opera") >0 or Instr(IISInfo, "mozilla")>0 Then 
LsIE=true” 

End If 

IE ISTIR =false Then 
Response.write ("禁止 爬虫 或 者 小 偷 程序 访问 该 页 ! <BR>") 
Response.End 

End If 

务 > 





9.5 小 结 


本 章 列举 了 一 些 常见 的 ASP 漏洞 ， 随 着 互联 网 的 发 展 和 电子 商务 的 普及 ， 网 站 的 安全 性 
也 必 将 成 为 一 个 不 容 忽视 的 因素 。 网 站 信息 安全 是 一 项 复杂 的 系统 工程 ， 是 不 容 忽视 的 ， 这 就 
需要 ASP 程序 员 构建 更 加 安全 的 ASP 站 点 。 但 毕竟 网 络 环境 是 复杂 的 ， 黑 客 的 破坏 手段 也 在 
不 断 地 增强 。ASP 程序 员 可 以 根据 实际 情况 ， 选 择 其 中 的 多 种 方法 配合 使 用 ， 效 果 才 理想 ， 网 
络 信息 才 会 安全 。ASP 应 用 技术 在 不 断 发 展 ， 新 的 程序 编码 漏洞 还 可 能 被 发 现 ，ASP 程序 员 仍 
需要 不 断 地 开阔 视野 ， 了 解 最 新 的 安全 知识 。 
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办 内 容 摘要 la 
网 站 开发 成 功 ， 并 不 能 立即 放 到 Intemet 上 。 这 是 因为 网 站 的 性 能 、 功 能 和 安全 性 都 没有 
经 过 考验 ， 不 能 保证 网 站 的 正常 运行 。 为 了 保证 网 站 的 正常 运行 , 需要 进行 网 站 测试 。 本 章 重 
点 介绍 网 站 发 布 和 测试 方面 的 相关 操作 。 
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@ ”掌握 系统 发 布 的 基本 方法 。 
@ 掌握 安全 检验 测试 的 方法 。 
@ 掌握 压力 测试 的 基本 方法 。 


10.1 系统 发 布 


系统 发 布 后 ， 才 可 以 进行 系统 测试 。 既 可 以 本 地 发 布 ， 也 可 以 服务 器 发 布 。 本 地 发 布 就 是 
将 系统 在 个 人 服务 器 上 发 布 ， 以 便 局 域 网 内 的 用 户 使 用 和 测试 ， 服务 器 发 布 就 是 把 系统 发 布 到 
Internet 上 ， 供 所 有 的 用 户 通过 Internet 访问 和 管理 。 


10.1.1 本 地 发 布 


网 站 在 局 域 网 内 的 机 器 上 发 布 ， 供 局 域 网 内 用 户 测试 、 使 用 或 者 管理 。 本 机 发 布 的 过 程 可 
以 参考 第 1 章 的 HS 的 发 布 。 

如 果 系 统 使 用 了 SQL Server 数据 库 ， 且 数据 库 在 本 机 上 ， 只 要 启动 SQL Server 就 可 以 了 。 
如 果 SQL Server 数据 库 在 其 他 计算 机 上 ， 需 要 在 该 SQL Server 注册 。 下 面 介绍 在 另外 的 SQL 
Server 服务 器 上 注册 的 方法 。 注 册 数 据 库 服务 器 的 步骤 如 下 。 

(1) 选择 “开始 ”| “程序 ”| Microsoft SQL Server| “企业 管 理 器 ”命令 ， 在 打开 的 对 话 框 
中 右 击 “SQL Server 组 ”， 如 图 10-1 所 示 。 

(2) 选择 “新 建 SQL Server 注册 ”命令 ,弹出 “注册 SQL Server 向 导 ” 对 话 框 ， 如 图 10-2 
所 示 。 
(3) 单 击 “ 下 一 步 ”按钮 ， 弹 出 如 图 10-3 所 示 的 界面 。 

(4) 从 “可 用 的 服务 器 ”列表 中 ， 双 击 待 连接 的 服务 器 ， 添 加 到 “添加 的 服务 器 ”列表 中 ， 
单 击 “ 下 一 步 ”按钮 ， 弹 出 如 图 10-4 所 示 的 界面 。 

(5) 选中 “系统 管理 员 给 我 分 配 的 SQL Server 登录 信息 ” 单 选 按钮 , 单 击 “ 下 一 步 ” 按钮 ， 

弹出 如 图 10-5 所 示 的 界面 。 
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(6) 填 入 登录 名 和 密码 ， 单 击 “ 下 一 步 ” 按 钮 ， 弹 出 如 图 10-6 所 示 的 界面 。 
EEC ES 
上 徇 反 制 和 (QO 窗口 (wD 天 助 (由 了 加 加 | 欢迎 使 用 注册 
| 当 人 多 坦克 了 具 中 | + | 和 旬 | 四 |X 攻 加 罗 | 钨 SQL Server 向 导 
] 米 | 从 | 即 看 医 岛 
树 | SQLServw 组 1 个 项 目 本 向 导 洛 玫 助 作 注册 一 个 或 多 个 S9L Server。 通 过 本 
EF EE St 
we 导入 a 
互 芭 JoE (wnd 。 园 近 身价 验证 模式 。 
数据 可 
到 «saL see 
日 蝇 复制。 关于 5QL Server 企业 入 委 吕 和 ).、 [Be Ek 
中 全 宇和 
向 加 支 拓 有 
hn 
WRCD) 
2] 
导出 列表 人， ss 
RhD) | 
一 一 一 
图 10-1 SQL Server 企业 管理 器 图 10-2 注册 SQL Server 数据 库 服务 器 向 导 
选择 一 个 SQL Server 选择 身份 验证 模式 
违 择 或 键入 “可 用 的 服务 器 ” 框 中 的 一 个 惑 多 个 服务 器 各 - 好 园 拉 要 在 与 SQL Server 连接 时 使 用 的 身份 验证 模式 。 日 
可 用 的 服务 器 应 加 的 服务 器 连接 使 用 
广 要 甘 录 自己 的 计算 机 时 使 用 的 Windows 帐户 信息 5 Windows 身 份 验 
证 ) WW) 


-和 SEE 











《上 一 步 四 [下 - 步 中 )] 取消 





10-3 选择 SQL Server 服务 器 10-4 选择 身份 验证 模式 
EDETEZTCEEEE 寺 


思拓 连 接 选 Ee 三 
家 < 请 
[Serysr 巾 忆 信息 连 氛 打 ， 纸 可 以 格 本 好 名 和 窗 权 存 储 下 来 ， 辣 正在 癌 
让 汪 RS EE ee 有 组 中 ， 或 是 新 于 的 SQL 
用 的 SQL Sever 由 户 信息 自动 澡 录 [) [oe 3 ETE SS 
兴 录 名 LL} ) 站 名 [加 周 sotsoo 是 
BW 





个 新 建 的 项 层 SQL Server 组 wy) 
个 在 连接 时 提示 输入 SQL Servef 帐 尸 信息 | 








| 


KE 取 漠 





图 10-5 选择 连接 选项 图 10-6 选择 SQL Server 组 


(7) 保持 默认 设置 ， “下 一 步 ” 按 钮 ， 弹 出 如 图 10-7 所 示 的 界面 。 
(8) 单 击 “完成 ”按钮 ， 弹 出 “注册 SQL Server 消息 ”对 话 框 ， 如 图 10-8 所 示 。 
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完成 注册 
SQL Server 向 导 





修正 注册 的 SQL Seryer 旦 示 如 下 。 向 导 可 能 要 花 
几 分 名 时 间 进行 连接 ， 并 确认 服务 器 存在 以 及 连 
接 信息 有 效 。 





车 要 更 改 任何 未 成 功 注册 过 的 SQ ,请 选择 服 : 区 时 然后 
单 击 保 性 按钮。 和 站 《注意 :已 
的 可 和 机 插 “二 代 竺 证 用 居 帮 余下 的 任何 未 注册 服务 器 格 不 再 








阳光 EE| WES)| P27 
图 10-7 完成 SQL Server 向 导 图 10-8 ”等待 连接 数据 库 服务 器 


(9) 等 待 系统 注册 ， 直 至 出 现 如 图 10-9 所 示 的 界面 。 
(10) 如 果 没 有 注册 成 功 的 信息 ， 表 示 注 册 失 败 ， 如 图 10-10 所 示 。 


服务 器 注册 完成 。 


状态 ; 


一 一 一 


车 要 更 改 任何 未 成 功 注册 过 的 SQL server 的 设置 ， 请 选择 服务 器 ， 
Pn Ee Dn i C ee 已 


经 注册 的 服 : 
被 注册 。) 






车 要 更 改 任何 未 成 功 注册 过 的 SQL server 的 设置 ， 请 选择 服务 器 然后 
单 击 介 性 按钮 。 若 要 终止 服务 器 注册 ， DR 《 注意 
和 者 的 最 务 加 格 一 豆 保持 注 几 状态。 全 下 的 任何 未 注册 服务 器 将 不 再 
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图 10-9 服务 器 注册 成 功 图 10-10 注册 服务 器 失败 
(11) 单 击 “ 属 性 ”按钮 ， 弹 出 “已 注册 的 SQL Server 属性 ”对 话 框 ， 如 图 10-11 所 示 。 








服 劳 要 组 El | 司 :oLseve 担 "|| 








Ce ] ww | ww | 


图 10-11 “已 注册 的 SQL Server 属性 ”对 话 框 


M/k 
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(12) 重新 设置 登录 SQL Server 的 登录 名 和 密码 ， 单 击 “ 确 定 ” 按 钮 。 

注册 好 SQL Server 数据 库 ， 可 以 使 用 下 面 的 代码 连接 数据 库 : 

< 

Set Conn=Server.CreateObject ("ADODB.Connection") 

connstr="dirver={SQL Server};Server=172.29.1.20;uid=sa;pwd=;database=oa" 
Conn .Open connstr 

$> 


10.1.2 ”服务 器 发 布 


如 果 服 务 器 在 公司 或 单位 内 ， 发 布 网 站 的 方式 和 在 本 机 发 布 网 站 的 方式 相似 。 这 里 不 再 介 
绍 。 下 面 介绍 在 网 络 空间 发 布 网 站 的 方法 。 

如 果 没 有 发 布 网 站 的 空间 , 需要 在 网 络 中 购买 网 络 空 间 , 或 购买 虚拟 主机 , 获得 网 站 空间 。 
域名 空间 开通 后 ， 网 络 服务 商 向 用 户 提供 一 个 FTP 空间 ， 人 允许 用 户 上 传 网 站 代码 。 登 录 网 络 服 
务 商 提供 的 FITP， 把 网 站 的 文件 上 传 到 FTP 空间 内 。 

下 面 是 登录 FTP 空间 并 上 传 文件 的 例子 。 

(1) 打开 正 浏览 器 ， 在 地 址 栏 中 输入 FTP 地 址 (FTP 地 址 由 网 络 空间 提供 商 提供 )， 按 
Enter 键 。 

(2) 右 击 登录 界面 ， 在 弹出 的 快捷 菜单 中 选择 “登录 ”命令 ， 如 图 10-12 所 示 。 

(3) 弹出 “登录 身份 ”对 话 框 ， 如 图 10-13 所 示 。 









图 10-12 选择 “登录 ”命令 图 10-13 “登录 身份 ”对 话 框 
(4) 输入 用 户 名 和 密码 ， 单 击 “ 登 录 ” 按 钮 ， 弹 出 如 图 10-14 所 示 的 界面 。 


EelE 


图 10-14 上 传 网 站 代码 


上 传 的 网 站 代码 的 默认 页 ， 必 须 符 合 网 络 空间 提供 商 的 要 求 。 该 例 中 ， 网 络 空间 服务 商 要 
求 的 默认 页 是 index.asp。 


NN 
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10.2 代码 检测 


代码 在 服务 器 上 发 布 前 ， 需 要 经 过 代码 测试 。 本 章 所 说 的 代码 测试 ， 主 要 是 指 代码 合法 性 
测试 ， 主 要 包括 两 个 部 分 : 程序 代码 合法 性 检查 与 显示 代码 合法 性 检查 。 

程序 代码 合法 性 检查 有 着 规范 标准 ， 但 是 各 个 单位 会 根据 各 自 的 条 件 ， 制 定 相应 的 标准 。 
各 个 单位 会 根据 代码 标准 ， 进 行 代码 合 法 性 检查 。 

显示 代码 合法 性 检查 主要 有 显示 代码 测试 和 界面 测试 。 显 示 代 码 主要 包括 HIML、 
JavaScript、CSS 和 VBScript 等 语言 。 这 些 语 言 都 有 相应 的 测试 工具 ， 如 HIML 可 以 采用 CSE 
HTML Validator 工具 进行 检查 。 在 HTML 开发 环境 中 ，CSE HTML Validator 是 非常 有 用 
的 工具 ， 可 以 发 现 HTML 文件 中 存在 的 不 易 被 发 现 的 问题 。 

界面 测试 比较 简单 ， 也 比较 直观 。 但 是 界面 往往 是 容易 出 现 问 题 的 地 方 ， 这 不 是 程序 员 技 
术 方 面 的 问题 。 程 序 员 在 开发 网 站 时 ， 一 般 都 是 比较 重视 网 站 功能 的 开发 ， 而 忽略 了 界面 的 
细节 。 

界面 的 测试 主要 包括 以 下 几 个 方面 。 

(1) 错别字。 界面 中 的 标题 、 链 接 或 者 相关 信息 中 出 现 错别字 ， 这 会 影响 单位 的 形象 。 

(2) 难以 理解 语句 。 网 站 的 菜单 、 标 题 或 帮助 信息 ， 不 能 出 现 难以 理解 或 歧义 的 语句 。 歧 
义 的 语句 是 指 这 样 理 解 也 可 以 、 那 样 理 解 也 可 以 的 语句 ， 这 会 影响 用 户 的 使 用 。 这 类 错误 大 多 
出 现在 网 站 的 提示 信息 或 者 帮助 信息 中 。 提 示 或 帮助 信息 ， 大 多 由 程序 员 使 用 系统 自动 生成 的 
语句 ， 影 响 了 用 户 的 阅读 。 

(3) 另外 ， 网 站 代码 测试 还 包括 链接 测试 和 浏览 器 兼容 性 测试 。 链 接 关 系 到 用 户 能 不 能 完 
整 和 流畅 地 浏览 网 站 。 如 果 网 站 的 一 部 分 链接 出 现 问题 ， 影 响 用 户 不 能 浏览 这 些 网 页 ， 严 重 影 
响 了 网 站 的 形象 。 用 户 在 浏览 网 页 时 ， 可 以 使 用 不 同 的 浏览 器 ， 如 微软 的 正 等 。 在 设计 网 站 
代码 时 ， 没 有 考虑 浏览 器 的 类 型 ， 只 面向 一 种 浏览 器 ， 这 会 严重 影响 网 站 信息 的 传递 。 对 于 浏 
览 器 兼容 性 测试 ， 可 以 使 用 OpenSTA 工具 进行 测试 。OpenSTA 工具 可 以 使 用 不 同 的 浏览 器 进 
行 测试 。 








10.3 安全 检验 


随 着 网 络 的 普及 ， 用 户 获取 知识 的 途径 变 得 越 来 越 丰富 。 黑 客 知 识 可 以 很 容易 获得 ， 攻 击 
网 站 的 事情 也 越 来 越 多 。 如 何 保障 网 站 的 安全 ， 已 经 变 得 越 来 越 重要 。 网 站 发 布 前 或 发 布 后 ， 
都 要 对 网 站 进行 安全 测试 。 安 全 测试 要 包括 现在 流行 的 黑客 攻击 方式 。 本 节 只 介绍 两 种 简单 的 
攻击 方法 : DDOS 攻击 和 SQL 注入 测试 。 


10.3.1 DDOS 攻击 测试 





DDOS 是 英文 Distributed Denial of Service( 分 布 式 拒绝 服务 ) 的 缩写 形式 。DDOS 攻击 虽然 
不 会 窃取 目标 系统 的 资料 ， 但 是 它 会 造成 Web 系统 服务 中 断 ， 造 成 经 济 损失 ， 严 重 威胁 着 


IAA 






Internet 的 安全 。 


和 AsPrDreamwenwer 动态 风 站 开 必 ( 第 ?版 )) 


DDOS 攻击 的 原理 是 : 入 侵 者 先 控制 mtemet 上 大 量 的 联网 主机 ， 并 在 这 些 主机 上 装载 攻 


击 程序 , 使 这 些 主机 成 为 攻击 代理 。 入 侵 者 使 这 些 攻 击 代理 的 同时 向 目标 主机 或 网 络 发 起 攻击 ， 








利用 合理 的 请 求 ， 
到 正常 的 服务 。 














使 用 XDOS 工具 ， 




















占用 大 量 的 网 络 带宽 和 系统 资源 ， 导 致 该 网 络 或 系统 瘫痪 ， 合 法 用 户 无 法 得 





DDOS 攻击 的 常用 工具 有 XDOS、Trinoo、TFN、TFN2K、Stacheldraht 和 Smuf 等 。 下 面 


测试 网 站 是 否 可 以 防范 DDOS 攻击 。 


本 次 测试 只 对 本 机 发 布 的 网 页 进行 测试 ， 如 图 10-15 所 示 。 


| 文件 四 ”六 旬 如 ”查看 WD 收藏) 工具 CD) 帮助 
OR -OM TR | v1- 
| 吨 生 加剧 ttp://locuheswIndex ASP 




















后 机 二 Intranet 


10-15 ”DDOS 攻击 前 的 界面 


(1) 选择 “开始 ”|“ 运 行 ”命令 。 


(2) 输入 cmd 


命令 ， 按 Enter 键 ， 进 入 DOS 命令 提示 符 界面 ， 如 图 10-16 所 示 。 


(3) 把 当前 目录 修改 为 xdos.exe 文件 所 在 目录 。 
(4) 输入 “xdos 127.0.0.1 80 -t4-s*” 命 令 ， 按 Enter 键 ， 如 图 10-17 所 示 。 





图 10-16 





xdos 命令 的 语 











DOS 命令 提示 符 界面 图 10-17 DDOS 的 攻击 代码 


法 格式 如 下 : 


xdos IP Port -t num -s VirtualIP， 


其 中 ，xdos 的 


NNN 


参数 说 明 如 表 10-1 所 示 。 
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表 10-1 xdos 的 参数 说 明 














参 数 说 明 
IP 进行 DDOS 攻击 的 网 站 人 地址 
Port 被 攻击 的 服务 器 端口 
tnum 表示 攻击 的 次 数 ， 值 太 大 会 造成 机 器 死机 ， 一 般 5 一 10 就 可 以 
-s VirtualIP 随机 伪造 的 攻击 人 P 地 址 


“xdos 127.0.0.1 80 -t4-s*” 命 令 就 是 攻击 IP 地 址 为 127.0.0.1 的 机 器 (本 机 ) 的 80 端口 。 
(5) 在 浏览 器 的 地 址 栏 中 ， 输 入 localhost/index.asp， 如 图 10-18 所 示 。 这 说 明 本 机 已 经 不 
能 响应 服务 请 求 了 。 
如 果 出 现 图 10-18 所 示 的 界面 ， 说 明 系统 已 经 被 DDOS 攻 
需要 采取 相应 的 措施 。 





fF， 网 站 不 能 防范 DDOS 攻击 ， 





文件 中。 辆 得 @) 查看) 必 臣 罗 工具 WD 帮助 如 Ea 
OF. Od NN WR)» MOR 外 











无 法 找到 该 页 
人 下 妇 事 的 页 面 可 能 已 生 肌 防 ， 更 名 或 名 下 可用。 


请 宅 试 H[ 下 执 作 : 





。 确 公 浊 入 的 堆 址 芒 中 显示 的 PR 基 种 驮 写生 开 正确 天 说 ， 
。 如 时 而 ) 而 到 直 了 该 ， 请 网 站 竺 理 郧 联系， 通知 必 们 这 的 格式 
ES 
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图 10-18 ”DDOS 攻击 的 结果 


10.3.2 探 针 测试 


下 面 主要 讲述 如 何 使 用 探 针 测试 网 站 系统 。 
1. 使 用 ASP 探 针 进行 安全 测试 
常见 的 ASP 不 安全 组 件 有 以 下 几 个 。 


(1) FileSystemObject。 
FileSystemObject 组 件 具 有 管理 文件 和 文件 夹 的 能 力 。 如 果 权 限 设置 不 当 ， 非 法 用 户 会 使 


用 该 组 件 创建 、 修 改 甚 至 删除 服务 器 上 的 文件 。FileSystemObject 组 件 是 常用 的 组 件 之 一 ， 可 
以 对 其 重 命名 。 


(2) WScnript.Shell。 
WScript.Shell 组 件 允 许 ASP 运行 exe 等 可 执行 文件 。 即 使 服务 器 进行 严格 的 权限 设置 , 此 


组 件 也 可 以 用 来 提升 权限 的 程序 ， 存 在 严重 的 安全 隐患 。 


(3) WScnptNetwork。 
WScriptNetwork 为 ASP 程序 查看 和 创建 系统 用 户 提供 了 可 能 。 
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(4) Adodb.Stream。 

Adodb.Stream 是 ADO 的 Stream 对 象 ， 提供 存 取 二 进 制 流 数据 或 者 文本 流 ， 常 在 无 组 件 上 
传 工 具 中 使 用 。Adodb.Stream 组 件 可 以 被 用 来 上 传 不 安全 程序 ， 但 是 通过 必要 的 权限 设置 ， 
Adodb.Stream 不 会 对 系统 安全 造成 威胁 。 

下 面 是 探测 服务 器 是 否 含有 这 几 个 不 安全 组 件 的 代码 : 

< 

' 判 断 是 否 支 持 Filesystemobject 组 件 

Haveobj "Scripting.FileSystemobject " 

' 判 断 是 否 支持 Wscript .shell 组件 

HaveOb] "WScript.Sshell" 

' 判 断 是 否 支 持 WScript .Network 组 件 

HaveOb] "WScript.Network " 

' 判 断 是 否 支 持 Adodb .Stream 组 件 

HaveOb] "Adodb.stream" 

"函数 HaveObj () 用 来 显示 组 件 信息 

Function Haveobj (strObj) 

on error resume next ' 启 动 错误 处 理 程序 
Dim Have 
Have=false 
Dim str 
1 
' 创 建 该 组 件 
set Obj=server.CreateObject (strObj) 
"判断 是 否 出 现 错误 
If -2147221005 <> Err then 
Have = True 
"获取 该 组 件 的 信息 
str = Obj.version 
if str ="" or isnulll(str) then str = Obj.about 
end if 
set Testobj=nothing 
If Have Then 
"获取 该 组 件 的 信息 
Response.write ("支持 "gstrobj" 组 件 。"&strg" 危 险 ! <BR>") 
Else 
' 返 回 不 支持 信息 
Response.write ("不 支持 "&strobj&" 组 件 。<BR>") 
End If 

HaveObj=0 

End Function 

务 > 


2. SQL 指令 探 针 进行 安全 测试 
SQL 指令 探 针 探测 的 目的 ,是 发 现 Web 系统 是 否 存在 SQL 指令 注入 漏洞 .常用 的 一 些 SQL 
注入 的 软件 有 NBSI 等 。 下 面 介 绍 NBSI 软件 的 使 用 方法 。NBSI 可 以 注入 各 种 数据 库 ， 并 可 猜 


解 表 名 和 字段 名 。 
下 面 对 一 个 网 站 进行 SQL 注入 测试 ， 以 检测 该 网 站 是 否 存在 SQL 指令 注入 漏洞 。 具 体 步 
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又 如 下 。 


(1) 下 载 NBSI 软件 并 运行 ， 如 图 10-19 所 示 。 
(Q2) 在 “网 站 地 址 ”文本 框 中 输入 检测 的 网 站 ， 单 击 “ 扫 描 ” 按 钮 ， 结 果 如 图 10-20 所 示 。 
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se nl ore pre el i sm vom ee 
图 10-19 NBSI 的 主 界面 图 10-20 ”安全 扫描 结果 


图 10-20 中 显示 “扫描 结果 ”一 栏 有 很 多 扫描 结果 ，“ 可 能 性 : 极 高 ”的 项 目 表明 注入 成 功 
的 可 能 性 比较 高 。 

(3) 在 “扫描 结果 ”一 栏 ， 选 择 “ 可 能 性 : 极 高 ”的 项 目 。 单 击 Inject 标签 ， 如 图 10-21 
所 示 。 

(4) 在 “注入 地 址 ”输入 框 内 输入 要 注入 的 网 址 ， 单 击 “ 检 测 ” 按 钮 ， 如 图 10-22 所 示 。 
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图 10-21 单 击 Inject 标 签 图 10-22 进行 注入 检测 


(5) 单 击 “ 猜 解 表 名 ”标签 , 在 “已 猜 解 表 名 ” 框 中 , 可 以 看 到 猜 解 出 的 表 名 称 , 如 图 10-23 
所 示 。 

(6) 选择 一 个 表 名 ， 单 击 “ 猜 解 列 名 ”标签 ， 如 图 10-24 所 示 。“ 已 猜 解 列 名 ” 框 显 示 选 
择 表 中 的 猜 解 的 列 名 。 

(7) 用 户 可 以 选择 已 猜 解 列 名 ， 继 续 猜 解 记录 。 

到 此 为 止 ， 网 站 的 数据 库 已 经 被 完全 猜 解 ， 这 也 说 明 网 站 存在 着 大 量 漏洞 ， 需 要 加 强 防 范 
措施 。 在 网 站 发 布 前 ， 可 以 使 用 该 工具 对 需要 发 布 的 网 站 进行 SQL 漏洞 测试 。 对 查找 到 的 漏 


洞 进行 修补 ， 从 而 提高 网 站 安全 性 。 
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图 10-23 单 击 “ 猜 解 表 名 ”选项 图 10-24 显示 已 猜 解 列 名 


10.4 压力 测试 


通常 在 上 述 测试 获得 通过 和 网 站 系统 发 布 以 后 , 压力 测试 就 可 以 在 实际 应 用 的 网 络 环境 中 
进行 测试 了 。 这 时 进行 的 压力 测试 才 是 可 靠 和 可 信 的 。 


10.4.1 压力 测试 概述 


压力 测试 也 称 为 负载 测试 ， 是 指 模拟 用 户 使 用 过 程 中 的 巨大 工作 负荷 ， 以 查看 网 站 服务 器 
在 峰值 使 用 情况 下 的 运行 情况 。 压力 测试 是 一 种 模拟 测试 , 它 是 模拟 短 时 间 内 的 巨大 工作 负荷 ， 
而 且 压 力 测 试 使 应 用 程序 的 使 用 达到 峰值 。 

压力 测试 用 来 确定 网 站 系统 能 够 承受 的 压力 、 能 够 承受 的 用 户 访问 量 ， 以 及 支持 同时 访问 
某 个 功能 的 最 大 用 户 数 。 进 行 压力 测试 需要 指定 压力 测试 计划 书 。 计 划 书 中 比较 重要 的 是 测试 
强度 估算 和 构建 压力 测试 环境 。 


10.4.2 ”构建 压力 测试 环境 


下 面 以 登录 某 教育 网 站 为 例 介 绍 如 何 构建 压力 测试 环境 。 
1. 测试 强度 估算 


该 教育 网 站 有 大 量 用 户 ， 用户 登录 时 间 大 都 集中 在 晚上 6 点 半 至 8 点 之 间 。 假 设 每 天 晚上 
有 10% 的 用 户 登 录 ， 则 有 近 1500 人 登录 。 依 据 每 天 80% 的 登录 在 20% 的 时 间 内 完成 的 原理 ， 
每 天 晚上 6 点 半 至 8 点 之 间 1200 个 用 户 登录 。 这 样 ， 可 以 求 得 每 秒 钟 的 请 求 数量 大 约 为 0.25 
次 。 在 正常 情况 下 ， 网 站 服务 器 处 理 请 求 的 能 力 应 达到 1 次 / 秒 ， 同 时 在 线 人 数 最 多 200 人 。 

2. 构建 压力 测试 环境 

构建 压力 测试 环境 时 ，Web 服务 器 已 经 发 布 。 

(1) 网 络 环境 。 


NN 





网 络 环境 可 以 是 单位 内 部 的 局 域 网 ， 也 可 以 使 用 外 部 的 网 络 。 但 是 实际 测试 中 要 保证 网 络 
资源 足够 用 ， 否 则 影响 压力 测试 结果 。 

(2) 客户 端 配置 。 

客户 端 为 10 台 PC 机 。 这 10 台 PC 机 的 硬件 和 软件 配置 一 样 ,硬件 均 为 P4 2.1G/128M RAM， 
操作 系统 为 Windows 2000 Personal。 

(3) 客户 端 测试 程序 。 

客户 端 测试 程序 可 以 由 网 站 开发 人 员 编写 ， 也 可 以 采用 商品 化 的 软件 ， 如 WAS 和 
OpenSTA。 在 这 次 测试 中 ， 选 用 WAS 软件 。WAS 是 微软 开发 的 Web 应 用 负载 工具 (MS Web 
Application Stress Tool)。 该 工具 是 免费 的 ， 可 以 在 微软 网 站 下 载 。WAS 可 以 通过 一 台 或 者 多 
台 客 户 机 模拟 大 量 用 户 的 活动 。WAS 还 支持 身份 验证 、 加 密 和 Cookies， 甚 至 能 够 模拟 各 种 浏 
览 器 类 型 和 Modem 速度 ， 其 功能 和 性 能 非常 完善 。 


10.4.3 测试 监控 


下 面 使 用 WAS 软件 对 网 站 进行 压力 测试 。 具 体 测试 过 程 如 下 。 
1. 检测 项 目 


在 测试 ASP 网 站 时 ， 主 要 观测 线程 的 每 秒 上 下 文 切换 次 数 、ASP 页 面 的 每 秒 请 求 数量 、 
ASP 页 面 的 请 求 执行 时 间 、ASP 页 面 的 请 求 等 待 时 间 以 及 置 入 队列 的 请 求 数量 。 

线程 的 每 秒 上 下 文 切换 次 数 显示 了 处 理 器 的 效率 。 如 果 处 理 器 忙于 大 量 线程 的 上 下 文 切 
换 ， 说 明 它 忙于 切换 线程 而 不 是 执行 ASP 脚本 。ASP 页 面 的 每 秒 请 求 数量 ， 显 示 每 秒 内 服务 
器 成 功 处 理 的 ASP 请 求 数量 。ASP 页 面 的 请 求 执行 时 间 和 等 待 时 间 之 和 ， 显 示 了 反应 时 间 ， 
这 是 服务 器 处 理 完成 一 次 请 求 所 需要 的 时 间 。 

2. 测试 步骤 


本 次 测试 的 具体 操作 步骤 如 下 。 

(1) 启动 WAS。 读 者 可 以 在 微软 网 站 下 载 WAS。WAS 的 安装 步骤 非常 简单 ， 这 里 不 再 
讲述 。 启 动 后 的 WAS 界面 如 图 10-25 所 示 。 

(2) 单 击 Manual 按钮 ， 弹 出 如 图 10-26 所 示 的 界面 ， 在 该 界面 中 就 可 以 完成 建立 测试 新 
脚本 的 功能 。 








图 10-25 WAS 界面 图 10-26 ”建立 测试 新 脚本 
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(3) 单 击 并 展开 New Script， 如 图 10-27 所 示 。 

建立 New Script 测试 的 项 目 步骤 如 下 。 

@ 在 Server 输入 框 中 ， 输 入 待 测试 的 卫 地 址 或 者 服务 器 的 名 称 。 

@ 单 击 Verb 下 的 输入 框 ， 再 单 击 下 拉 按 钮 ， 选 择 GET 选项 。 

@ 在 Path 下 的 输入 框 中 ， 输 入 待 测试 的 文件 在 服务 器 中 的 虚拟 路 径 。 
(4) 选择 Settings 选项 ， 如 图 10-28 所 示 。 






10-27 创建 新 的 脚本 测试 项 目 图 10-28 脚本 测试 项 目 设置 界面 


建立 Settings 测试 的 项 目 步骤 如 下 。 

中 ”模拟 多 用 户 。 在 Concurrent Connections 区 域 的 Stress level (threads) 输 入 框 中 ， 输 入 模 
拟 用 户 数 。 如 果 少 于 100， 可 以 在 该 输入 框 中 直接 输入 数目 ， 例 如 20; 如果 数目 非常 大 ， 需 要 
在 Stress multiplier (sockets per) 输 入 框 中 输入 适当 的 数字 。 模拟 用 户 的 数目 为 这 两 个 输入 框 中 
数字 的 乘积 。 

加 在 TestRun Time 区 域 ， 输 入 测试 的 时 间 。 这 里 选择 默认 值 为 1 分 钟 。 
@ 在 Request Delay 区 域 ， 选 择 延 迟 时 间 ， 来 模拟 用 户 登 录 行 为 的 不 同 。 
(5) 选择 Perf Counters 选项 ， 添 加 计数 器 ， 如 图 10-29 所 示 。 
(6) 单 击 Add Counter 按钮 ， 弹 出 如 图 10-30 所 示 的 对 话 框 。 





图 10-29 添加 计数 器 图 10-30 设置 计数 器 的 属性 


建立 Add Counter 测试 的 项 目 步骤 如 下 。 
@ 添加 ASP 计数 器 。 
单 击 Object 文本 框 右 侧 的 下 拉 按 钮 ,选择 Active Server Pages; 选中 Counter 列表 框 中 的 “请 
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求 数 / 秒 ”“ 请 求 执行 时 间 ”“ 请 求 等 待 时 间 ”， 单 击 Add 按钮 。 

@) 添加 线程 的 每 秒 上 下 文 切 换 次 数 计数 器 。 

单 击 Object 文本 框 右 侧 的 下 拉 按钮 ， 选 择 Thread 选项 ， 选 中 Counter 列表 框 中 的 Context 
Switches/sec， 单 击 Add 按钮 。 

图 添加 CPU 使 用 率 计 数 器 。 

单 击 Object 文本 框 右 侧 的 下 拉 按 钮 ， 选 择 Processor 选项 ;选中 Counter 列表 框 中 
的 %Processor Time， 单 击 Add 按钮 。 添 加 计数 器 后 的 界面 如 图 10-31 所 示 。 

(7) 单 击 图 10-27 中 左 侧 的 Users 选项 , 添加 服务 器 用 户 和 密码 。 双 击 左 侧 窗口 中 的 Default 
选项 ， 进 入 用 户 设置 页 面 ， 如 图 10-32 所 示 。 























图 10-31 添加 计数 器 后 的 界面 图 10-32 用 户 设置 界面 


在 User name 和 Password 输入 框 中 输入 用 户 名 和 密码 ， 单 击 Create 按钮 ， 添 加 用 户 结束 。 
如 果 Number of new 编辑 框 中 的 数字 为 0， 则 添加 用 户 无 效 。 删 除 用 户 时 ， 选 中 用 户 ， 单 击 删 
除 按钮 列 ， 就 可 以 删除 该 用 户 行 。 
































图 10-33 ”显示 用 户 的 状态 界面 


3. 编制 脚本 

(1) 选择 Scripts | Create | Record 命令 ， 弹 出 如 图 10-34 所 示 的 对 话 框 。 

(2) 选择 需要 记录 的 数据 类 型 。 

(3) 单 击 Next 按钮 ， 弹 出 如 图 10-35 所 示 的 对 话 框 。 

(4) 单 击 Finish 按钮 ，WAS 软件 自动 打开 一 个 浏览 器 窗口 ， 如 图 10-36 所 示 。 


M/k) 






ASP+Dreamweaver 动 5 开发 (第 2 版 ) 





在 浏览 器 的 地 址 栏 中 ， 输 入 待 测试 网 站 的 路 径 ， 单 击 每 一 个 要 测试 的 网 站 模块 。 该 窗口 中 
所 有 request-response 都 会 被 记录 到 测试 脚本 中 。 本 次 测试 只 对 网 站 的 登录 模块 进行 测试 。 因 此 ， 
只 需要 登录 到 网 站 就 可 以 了 。 

关闭 该 浏览 器 窗口 ， 软 件 自 动 记录 用 户 所 有 的 操作 到 测试 脚本 中 ， 如 图 10-37 所 示 。 
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图 10-36 ”WAS 软件 打开 浏览 器 窗口 图 10-37 ”记录 用 户 操 作 到 测试 脚本 
(5) 单 击 Stop Recording 按钮 ， 完 成 脚本 的 录制 ， 如 图 10-38 所 示 。 
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图 10-38 ”完成 脚本 的 录制 
4. Web 测试 


选择 运行 脚本 名 称 .选择 Scripts | run 命令 或 者 单 击 融 按钮 , 软件 自动 进行 测试 , 如 图 10-39 
所 示 。 
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10-39 ”自动 进行 测试 


5. 测试 报告 


(1) 选择 View | Reports 命令 或 者 单 击 国 按 钮 ， 出 现 报告 目录 ， 如 图 10-40 所 示 。 

C) 选择 脚本 名 称 以 及 详细 测试 时 间 文 件 。 

选择 Page Summary 选项 , 观察 右 侧 窗口 的 TTFB 和 TTLB 两 个 指标 。 TTFB 表示 从 请 求 开 
始 到 WAS 收 到 的 时 间 ;TTLB 表示 最 后 一 个 请 求 从 WAS 反馈 到 客户 端的 时 间 。 

这 样 ， 就 完成 了 对 网 站 的 压力 测试 。 用户 可 以 根据 压力 测试 的 数据 ， 评 佑 网 站 各 方面 的 能 
力 。 如 果 用 户 需要 查看 其 他 测试 数据 ， 选 择 图 10-41 所 示 的 左 侧 窗 口 的 相应 选项 就 可 以 了 。 
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图 10-40 ”压力 测试 报告 目录 图 10-41 查看 压力 测试 指标 


10.5 小 结 


本 章 介绍 了 网 站 的 测试 方法 。 网 站 测试 主要 有 系统 发 布 、 代 码 测试 、 安 全 测试 和 压力 测试 。 
本 章 的 重点 是 网 站 的 安全 测试 和 压力 测试 的 方法 。 网 站 的 安全 测试 ,在 网 站 测试 中 占有 重要 的 
地 位 。 因 为 安全 测试 关系 到 网 站 的 安全 ,需要 全 方位 的 测试 ,读者 可 以 参考 其 他 安全 测试 的 书 
籍 进行 测试 。 
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人 内容 摘 要 1awowoct 


本 章 将 介绍 一 些 常用 的 ASP 模块 ， 以 便 读者 对 本 书 前 面 的 内 容 进 行 巩固 和 理解 。 模 块 包 
括 登 录 模 块 、 购 物 车 模块 、 分 级 目录 模块 、 权 限 设置 模块 、 分 页 显示 模块 、 投 票 模块 和 搜索 引 
擎 模块 。 


人 学 习 目 标 | ouecuve 


掌握 登录 模块 。 
掌握 购物 车 模块 。 
掌握 分 级 目录 模块 。 
掌握 权限 目录 模块 。 
掌握 分 页 显示 模块 。 
掌握 投票 模块 。 
掌握 搜索 引擎 模块 。 





11.1 登录 模块 


许多 Web 应 用 系统 为 了 安全 的 需要 ， 
部 分 网 页 通过 身份 验证 才能 浏览 和 操作 。 这 
就 要 用 到 用 户 登录 模块 。 下 面 介绍 一 个 通用 获取 用 户 名 和 密码 
的 登录 模块 。 


11.1.1 登录 流程 
登录 模块 的 功能 是 检验 登录 的 用 户 是 
否 是 合法 用 户 。 本 模块 为 了 提高 用 户 登录 的 


可 靠 性 , 加 入 了 验证 码 检验 和 密码 加 密 的 功 
能 。 本 模块 的 登录 流程 如 图 11-1 所 示 。 


11.1.2 ”登录 代码 实现 Ea 


文件 Logon.asp 验证 用 户 登录 ， 代 码 图 11-1 登录 流程 
如 下 : 
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'"------- 一 文件 名 : Logon .asp ------------------- 
"如 果 尚 未 定义 Session 对 象 的 变量 Pass， 则 将 其 值 设 为 False， 表 示 未 登录 
If IsEmpty (Session("Pass")) Then 
Session("Pass") = False 
End If 
"第 一 次 执行 该 代码 
If Session("Pass")=False Then 
' 读 取 从 表单 传递 过 来 的 用 户 名 和 密码 
UserName = Request.Form("UserName") 
UserPwd = Request.Form("UserPwd") 
' 用 户 名 为 空 ， 显 示 错 误 信息 
IE UserName = “”Then 
Errmsg = "请 输入 用 户 名 和 密码 !" 
Else 
' 连 接 数 据 库 
'Server 对 象 的 CreateObject 方法 建立 Connection 对 象 
Set Conn=Server.CreateObject ("ADODB.Connection") 
'Response .Write (Server.MapPath ("User.mdb") &"<BR>") 
Conn.Connectionstring="Provider=Microsoft.Jet .OLEDB.4.0;"& 
"Data Source="&Server.MapPath ("User.mdb") 
Conn.open 
Sql="select * from Users Info where UserName='"gUserName &"' and 
UserPwd="'"g&UserPwd g&"'" 
" 读 取 用 户 数据 
set rs=Conn.Execute(Sql) 
If rs.EOF Then 
' 用 户 不 存在 ， 显 示 错误 信息 
Errmsg = "用 户 不 存在 " 





Else 
' 登 录 成 功 
Errmsg = "" 
Session("Pass") = True 
Session("UserName") = rs.Fields ("UserName") 
Session("UserId") = rs.Fields ("UserID") 
Response .Write ("登录 成 功 ， 请 进入 <a href=1logon.asp> 首 页 </a>") 

End I£ 

End If 
End If 


' 未 登录 或 者 登录 不 成 功 ， 显 示 登 录 界 面 
If Session("Pass")=False Then 
$%> 
<HTML> 
<HEAD><TITLE> 请 输入 用 户 名 和 密码 </TITLE></HEAD> 
<BODY> 
<p align="center"><font face=" 华 文 行 楷 " size="6" color="#0000FF"> 登 录 模 块 
</font></p> 
<p align="center"><font color="#800000"> <%=Errmsg%></font></p> 
<form method="POST" action="logon.asp" name="Form" > 
<p align="center"> 用 户 名 : gnbsp; <input type="text" name="UserName" 


size="20"></p> 
M/k 
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<p align="center"> 密 &nbsp; 码 : gnbsp; <input type="password" name="UserPwd" 
size="20"></p> 

<p align="center"><input type="submit" value=" 提 交 " name="Bl"><input 
type="reset" value=" 全 部 重 写 " name="B2"></p> 
</form> 
<p align="center"> </p> 
</BODY> 
</HTML> 
< 

Response.End 

End If 

各 > 


代码 说 明 如 下 。 

(1) Session("Pass") 用 来 标识 用 户 是 否 已 成 功 登 录 。 如 果 Session("Pass") 为 Trme， 表示 已 登 
录 成 功 ， 不 再 显示 登录 界面 ; 否则 ， 表 示 未 登录 ， 显 示 登 录 界面 。 

(2) Session("Pass") 的 初始 值 (代码 第 一 次 执行 时 的 值 ) 为 False， 表 示 未 登录 。 

(3) 如 果 rs.EOF 为 False， 表 示 数 据 库 表 中 没有 UserName 用 户 信息 ， 登 录 失 败 。 错 误 信 
息 保存 在 变量 ErrorMsg 中 。 

(4) 如 果 rs.EOF 为 True， 表 示 登 录 成 功 ， 设 置 Session("Pass") 和 Session(s"UserNames") 
的 值 。 

(5) 登录 界面 如 图 11-2 所 示 。 
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图 11-2 登录 界面 
11.1.3 ”验证 码 实现 


用 户 在 登录 网 站 或 者 在 论坛 发 帖子 时 ， 经 常会 遇 到 输入 验证 码 的 情况 。 验 证 码 可 以 防止 自 
动 化 程序 恶意 注册 ， 或 暴力 破解 登录 密码 ， 有 助 于 确保 填写 表单 的 是 普通 用 户 ， 而 不 是 自动 化 
的 程序 。 实 际 上 ， 验 证 码 只 是 增加 攻击 者 的 难度 ， 而 不 可 能 完全 防止 非法 用 户 的 恶意 行为 。 

验证 码 有 文本 字符 和 图 片 验 证 码 两 种 形式 。 文 本 字符 验证 码 是 比较 原始 的 验证 码 形式 。 现 
在 常用 的 是 图 片 验 证 码 , 有 GIF、BMP、PNG 等 图 片 形式 。 图 片 验证 码 常 采用 显示 随机 字符 ( 数 
字 或 英文 字母 ， 也 可 以 为 中 文字 符 ) ， 加 上 随机 干扰 像素 点 或 者 线条 。 有 些 图 片 验 证 码 还 采用 
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了 随机 位 置 显示 字符 。 

实现 验证 码 验 证 的 流程 如 下 。 

(1) 服务 器 端 随机 生成 验证 码 字符 串 ， 存 入 Session 。 

(2) 把 验证 码 发 送 给 浏览 器 端 显示 。 

(3) 用 户 输入 显示 的 验证 码 字符 ， 提 交 给 服务 器 端 。 

(4) 提交 的 字符 和 Session 保存 的 字符 比较 是 否 一 致 : 一 致 就 继续 ， 和 否则 返回 错误 提示 。 

在 ASP 中 ， 使 用 一 些 特定 组 件 可 以 很 容易 生成 图 片 。 但 是 很 多 网 站 并 不 一 定 支 持 这 些 组 
件 (如 提供 空间 的 网 站 )。 下 面 讲述 直接 生成 BMP 图 片 验证 码 的 方法 。 

生成 BMP 图 片 验证 码 的 方法 有 很 多 ， 下 面 介绍 一 种 比较 流行 的 方法 。 这 种 方法 把 验证 码 
生成 的 点 阵 数据 ， 填 充 到 BMP 图 片 文件 中 ， 并 依据 BMP 文件 的 格式 设置 该 文件 的 信息 数据 ， 
生成 一 幅 图 片 。 该 方法 需要 填充 图 像 的 宽度 、 高 度 、 文 件 大 小 、 图 像 数据 大 小 及 图 像 数据 。 BMP 
图 像 存储 的 数据 是 图 像 每 个 像素 点 的 颜色 值 ， 以 数字 1 为 例 介绍 一 下 图 像 数据 是 如 何 存储 的 。 
现在 用 一 个 10x10 的 点 阵 来 描述 数字 1， 如 图 11-3 所 示 。 

在 图 11-3 中 1 处 的 数据 ， 以 一 种 特定 颜色 值 存 储 于 BMP 图 像 数 据 区 ， 如 黑色 ; 0 处 的 数 
据 以 另外 一 种 颜色 值 进行 存储 ， 如 红色 。 那 么 , 这 幅 图 像 就 是 在 黑色 的 背景 上 ， 显示 红色 的 1。 

在 生成 验证 码 图 片 时 ， 先 使 用 0 和 1 构成 验证 码 字 符 的 点 阵 数 据 , 然后 依据 这 些 数据 (0 和 
1) 填 充 每 个 像素 的 颜色 ， 这 样 就 生成 了 一 个 图 片 ， 如 图 11-4 所 示 。 
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图 11-3 图 像 1 点 阵 数据 图 11-4” 带 验证 码 的 登录 界面 


验证 码 的 数目 和 杂 点 数目 , 可 以 通过 函数 CreatBMPValidCode() 的 nNum 和 nOdd 参数 进行 
设置 。 代 码 如 下 : 


'—------- 文件 名 : yzma.asp ------------------- 
"调用 生成 验证 码 的 过 程 

Call CreatBMPValidCode ("BMPValidCode",5, 6) 

' 生 成 验证 码 

"参数 pSN 表示 Session 变量 名 

"参数 nNum 表示 验证 码 个 数 

"参数 nodd 表示 杂 点 数目 ， 数 值 越 大 杂 点 越 大 

Sub CreatBMPValidCode (PSN,nNum,nodd) 

"禁止 缓存 
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Response.Expires = -1 

Response.AddHeader "Pragma", "no-cache™ 
Response.AddHeader "cache-ctrol","no-cache" 
Response.ContentType = "Image/BMP" 

"随机 函数 


Randomize 


Dim 1. TL 主 
"设置 字符 数量 
Const cAmount = 36 
"字符 范围 
Const cCode = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ" 
， 设置 颜色 
Dim RGBData (2) 
， 0 的 位 置 颜色 
RGBData(0) = ChrB (100) & ChrB (100) & ChrB (100) 
"1 的 位 置 颜色 
RGBData(1) = ChrB(100) & ChrB(255) & ChrB (255) 
， 设置 每 个 字符 的 宽度 和 高 度 
dim nPicSize,nPicWid,nPicHei,bEven 
nPicwid=10 
nPicHei=10 
， 如果 偶数 个 验证 码 ，BMP 文件 大 小 为 图 像 数据 加 上 文件 头 数据 大 小 (一 般 为 54 个 字 节 ) 
， 如 果 奇 数 个 验证 码 ，BMP 文件 大 小 除了 图 像 数 据 和 文件 头 数据 大 小 (一 般 为 54 个 字 节 ) 之 外 ， 
， 还 需要 加 上 每 行 凑 的 两 个 像素 ， 共 有 10x2 个 像素 
' 每 个 像素 使 用 24 位 (3 个 字 节 ) 颜色 表示 ， 图 像 数 据 为 高 度 x 宽度 x3 
If nNum*nPicWid mod 4 =0 Then 
"确定 偶数 个 验证 码 
bEvent=1 
nPicSize=nPicHei*nPicWidxnNumx*3+54 
Else] 
"奇数 个 验证 码 
bEvent=0 
nPicsize=nPicHei*npicWid*nNum*3+54+2*nPicHei 
End If 
， 随机 产生 字符 
Dim strCode(10), strCodes 
For i = 0 To nNum-1 
"产生 一 个 随机 数 ， 保 证 在 0 和 cAmount 之 间 
strCode (i) = Int (Rnd * cAmount) 
' 得 出 随机 字符 并 保存 在 变量 strcodes 中 
strCodes = strCodes & Mid(cCode, strCode(i) + 1, 1) 
Next 
' 记 录入 Session 
Session (PSN) = strCodes 
"字符 的 点 阵 数据 
Dim strData (36) 
strData (0) = "1110000111 "& 
"1101111011"& 
"1101111011 "& 
"1101001011 "& 
S1101001011 “& 
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"1101001011 "& 
"1101001011 "& 
OTLILOLL Me 
SQLLLLOLI SS 
OM 


strData (35) = "1100000011"& 
站 污 二 全 下 浊 计 和 于 生生 江 才 
交 王 汪汪 误工 下 可 下 开关 
LLLL RS 
3090OLEELw 
wlUONLLLIYS 
LUOLLLILILYS 
OLE 
"1110111011"& 
"1100000011" 
Dim nSize 
"BMP 文件 头 中 使 用 两 个 字 节 保存 文件 大 小 
"文件 大 小 为 nx256+nSize 
"因此 nsize 数值 为 文件 大 小 除 以 256 的 余数 
nSize=nPicSize- (int(nPicSize / 256) )*256 
Dim n 
n=int (nPicSize / 256) 
Dim m 
"图 像 宽度 
m=nPicWid*nNum 
"输出 图 像 文 件 头 
"设置 文件 类 型 
Response.BinaryWrite ChrB (Rsc("B")) & ChrB (Asc("M") ) 
， 设置 文 件 大 小 
Response.BinaryWrite ChrB (nsize) & ChrB (n) 
Response.BinaryWrite ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB (0) & ChrB (0) 
& ChrB(54) & ChrB(0) & 
ChrB(0) & ChrB(0) & ChrB(40) & ChrB(0) & ChrB(0) & ChrB (0) 
' 设 置 图 像 宽度 
Response.BinaryWrite ChrB(m) & ChrB(0) & ChrB(0) & ChrB(0) 
' 设 置 图 像 高 度 
Response.BinaryWrite ChrB(nPicHei) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB (1) & 
ChrB (0) 
Dim 1 
"BMP 图 像 信 息 头 中 使 用 两 个 字 节 保存 图 像 大 小 
"图 像 大 小 为 11x256+1 
"因此 1 数值 为 文件 大 小 除 以 256 的 余数 减 去 文件 头 大 小 
l=nPicsize- (int((nPicSize-54) / 256) )*256-54 
Dim 11 
11=int((nPicSize-54) / 256) 
， 输出 图 像 信 息 头 
Response.BinaryWrite ChrB (24) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB (0) & ChrB (0) 
， 设置 图 像 数据 大 小 
Response.BinaryWrite ChrB(1) & ChrB (11) 
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Response.BinaryWrite ChrB (0) & ChrB (0) & ChrB (18) & ChrB (11) & ChrB(0) & ChrB (0) 
& ChrB (18) & ChrB(11) & 

ChrB (0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & 
ChrB(0) & ChrB(0) & 

ChrB(0) & ChrB (0) 


， 处 理 所 有 行 
For i=9 To 0 Step -1 
， 处理 所有 验证 码 字符 

For ii = 0 To nNum-1 
， 处 理 所 有 像素 

For iii = 1 To 10 

' 输 出 图 像 数据 
， 随机 生成 杂 点 


IE Rnd * 99 + 1 < nodd Then 
Response.BinaryWrite RGBData (0) 
Else 
Response.BinaryWrite RGBData (Mid (strData (strCode (ii)), i * 10+iii, 1)) 
End If 
Next 
Next 
' 如 果 是 奇数 个 验证 码 ， 每 行 加 上 两 个 像素 以 对 齐 字 节 
If bEvent=0 Then 
Response.BinaryWrite ChrB(0) & ChrB(0) 
End If 
Next 


End Sub 
%> 


程序 执行 流程 如 下 。 

(1) 设置 字符 范围 和 颜色 。 

(2) 依据 字符 点 阵 数据 ， 设 置 字符 高 度 和 宽度 。 

(3) 计算 文件 大 小 。 

(4) 计算 图 像 数 据 大 小 。 

(5) 输出 图 像 文件 头 信息 和 图 像 信 息 头 信息 。 

(6) 依据 点 阵 数据 输出 图 像 数 据 。 

为 验证 用 户 输 入 的 验证 码 是 否 正确 ，Logon.asp 文件 中 验证 用 户 名 和 密码 的 代码 需要 进行 
修改 。 修 改 后 的 代码 如 下 : 

< 

' 连 接 数 据 库 

"使 用 Server 对 象 的 Createobject 方法 建立 Connection 对 象 

Set Conn=Server.CreateObject ("ADODB .Connection") 

Conn.Connectionstring="Provider=Microsoft .Jet.OLEDB.4.0;"& 

"Data Source="&Server.MapPath ("User.mdb") 
Conn .Open 
Sql="select * from Users Info where UserName='"&USerName &"' and 


UserPwd="'"&gUserPwd &"'" 
' 读 取 用 户 数 据 
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set rs=Conn.Execute(Sql) 
If rs.EOF Then 
"用户 不 存在 ， 显 示 错误 信息 
Errmsg = "用 户 不 存在 " 
Else 
"登录 成 功 
Errmsg = mm 
"检查 验证 码 是 否 正 确 
If Trim(Request.Form("YZM"))=Empty Or 
Trim(Session ("BMPValidCode") )<>Trim (Request .Form ("YZM")) Then 
"输出 验证 码 不 正确 的 信息 
response.write ("请 注意 正确 输入 验证 码 ") 
response.end 
Else 
"设置 正确 的 登录 信息 
Session("Pass") = True 
Session("UserName") = rs.Fields ("UserName") 
Session("UserId") = rs.Fields ("UserID") 
Response .Write ("登录 成 功 ， 请 进入 <a href=logon.asp> 首 页 </a>") 
End If 
End If 
$%> 


1.4 MD5 加 密实 现 


为 了 网 络 信息 的 安全 ， 在 用 户 注册 和 登录 时 ， 常 使 用 MD5 对 用 户 的 密码 进行 加 密 。MD5 
一 种 不 可 逆 的 加 密 算法 ， 在 ASP 中 可 以 实现 。 


使 用 该 函数 对 数据 进行 MD5 加 密 ， 需 要 在 文件 头 包含 该 文件 。 代 码 如 下 : 
<!--#include file="md5.asp" --> 


对 密码 进行 MD5 加 密 。 具 体 的 加 密 代码 如 下 : 


< 多 

"对 用 户 输入 的 密码 进行 MD5 加 密 
UserPwd=MD5 (UserPwd) 

务 > 


.1.5 数据 安全 检验 


密码 使 用 MD5 加 密 后 ， 登 录 的 流程 如 下 。 
(1) 对 密码 进行 MD5 加 密 。 

(2) 与 数据 库 中 相应 用 户 的 密码 进行 对 比 。 
(3) 一 致 则 登录 成 功 ， 否 则 登录 失败 。 
具体 的 数据 安全 验证 代码 如 下 : 

<% 

' 连 接 数 据 库 


Set Conn=Server.CreateObject ("ADODB .Connection") 
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Conn .ConnectionString="Provider=Microsoft.Jet-OLEDB.4.07"& 
"Data Source="&SerVver -MapPath ("User-mqdb") 

Conn .Open 

"对 用 户 输入 的 密码 进行 MD5 加 密 

UserPwd=MD5 (UserPwd) 

"数据 库 中 用 户 的 密码 为 使 用 MD5 加 密 后 的 密码 


Sql="select * from Users Info where UserName='"&UserName &"' and 


UserPwd="'"&g&UserPwdg"'" 
' 读 取 用 户 数据 
set rs=Conn.Execute (Sql) 
If rS9-.EOF Then 
' 用 户 不 存在 ， 显 示 错误 信息 
Errmsg = "用 户 不 存在 " 
Else 
' 登 录 成 功 
Errmsg = "" 
Session("Pass") = True 
Session("UserName") = rs.Fields ("UserName") 
Session("UserId") = rs.Fields ("UserID") 
Response .Write ("登录 成 功 ， 请 进入 <a href=logon.asp> 首 页 </a>") 
End If 
务 > 


11.2 ”购物 车 模块 


现在 很 多 网 站 都 有 网 上 购物 功能 ， 而 网 上 购物 常用 的 一 个 功能 是 购物 车 功能 。 下 面 介绍 购 


物 车 模块 的 实现 方法 。 
11.2.1 ”购物 车 流程 
购物 车 的 实现 流程 如 图 11-5 所 示 。 




















修改 购物 车 -| 挑选 商 品 到 | 查看 购物 车 


























到 收银 台 





选择 支付 方 
式 付款 














图 11-5 ”购物 车 流程 
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为 了 实现 上 述 操作 ， 必 须 使 用 数据 库 保存 商品 信息 。 在 本 例 中 ， 所 有 商品 保存 在 数据 表 
Type 中 , 该 表 的 结构 如 表 11-1 所 示 ; 用 户 选择 的 商品 保存 在 表 Shop_list 中 , 该 表 结 构 如 表 11-2 














所 示 。 
表 11-1 表 Type 的 结构 
字段 名 称 说 明 
ID 关键 字段 
Name 商品 名 称 
Relax 商品 说 明 
Cost 商品 价格 
字段 名 称 bf 类 型 | 说 明 
ShopName 商品 名 称 
商品 
EE 
和 六 
TotalCost 商品 总 价格 
Time | 日 期 ” ”| 购买 商品 时 间 


11.2.2 ”Cookie 加 密 


本 例 使 用 Cookie 记录 用 户 登录 的 信息 。 为 了 实现 数据 安全 ， 防 止 用 户 假冒 Cookie 信息 购 
买 商品 ， 需 要 对 登录 的 用 户 信息 进行 加 密 。 加 密 的 方法 很 多 ， 使 用 比较 复杂 的 加 密 算 法 ， 安 全 





性 比较 高 。 但 同时 占 上 











服务 器 资源 也 比较 多 ， 浪 费 的 时 间 也 比较 多 ， 会 减 慢 整个 网 站 的 访问 速 


度 。 在 本 例 中 ， 用 户 登 录 成 功 后 ， 使 用 MD5 加 密 算法 进行 Cookie 加 密 。 下 面 是 Cookie 加 密 


的 代码 : 


< 


"设置 加 密 的 cookies 值 

Response.Cookies ("Order Info") ("User")=MD5 (UserName) 
Response.Cookies ("Order Info") ("ID")=rs.Fields ("UserID") 
Response.Cookies ("Order Info") .Expires=Date()+1 


$%> 


11.2.3 ”实现 方法 


在 本 例 ， 登 录 页 面 的 实现 方法 可 以 参考 11.2.2 节 ， 这 里 不 再 袭 述 。 下 面 是 其 他 部 分 的 实现 


方法 。 
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1. 显示 商品 页 面 
显示 商品 页 面 的 界面 如 图 11-6 所 示 。 
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图 11-6 显示 商品 页 面 的 界面 


该 页 面 主要 把 商品 库 中 的 商品 信息 显示 在 页 面 上 ， 实 现 方法 就 是 查询 储存 商品 的 表 。 有 具体 
实现 代码 如 下 : 


<% 
' 连 接 数 据 库 
Set Conn=Server.CreateObject ("ADODB.Connection") 
Conn.Connectionstring="Provider=Microsoft .Jet.OLEDB.4.0;"& 
"Data Source="&Server.MapPath ("STORE .mdb") 
Conn.Oopen 
' 查 询 商 品 
Sql= "SELECT * FROM Type" 
set rs=Conn.Execute(Ssql) 
务 > 
<TABLE BORDER="0" ALIGN="Center" WIDTH="90%"> 
<TR BGCOLOR="#BABA76" HEIGHT="30" ALIGN="Center"> 
< 条 
"把 数据 表 的 字段 名 称 作为 表格 的 标题 
For I = 0 To rs.Fields.Count - 1 
Response .Write "<TD>" & rs.Fields(I) .Name & "</TD>" 
Next 
Response .Write "<TD> 数 量 </TD>" 
Response.Write "<TD> 订 购 </TD>" 
务 > 
</TR> 
<% 
"在 表格 中 显示 各 个 字段 的 数据 
Do While Not rs.EOF 
Str = "<TR HEIGHT='30' BGCOLOR="'#EDEAB1'>" 
For I=0 To rs.Fields.Count - 1 
Str = SEE & "<TD>" & TS.EFields(I)-Valtie & "</TD>" 
Next 
Response.Write str 
Response.Write "<TD><FORM METHOD='POST' TARGET= "Bottom'" 
ACTION="'AddToCar.asp?Book=" & _ 
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rs("Name") & "g&Relax=" & rs("Relax") & "&Cost=" & rs("Cost") & 
"'><INPUT TYPE="'TEXT' NAME="'Quantity' SIZE="'5'></TD>" 
Response.Write "<TD><INPUT TYPE='SUBMIT' VALUE=' 放 入 购物 车 '></TD></FORM></TR>" 
rs.MoveNext 
Loop 
"关闭 数据 库 连 接 并 释放 对 象 
rs,.Close 
Set rs = Nothing 
Conn.Close 
Set Conn = Nothing 
> 
</TABLE> 


2. 显示 购物 车 商品 
显示 购物 车 商品 的 页 面 如 图 11-7 所 示 。 
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图 11-7 显示 购物 车 商品 的 页 面 


该 页 面 主要 显示 该 用 户 购物 车 中 的 商品 。 实 现 方法 就 是 查询 储存 购物 商品 的 表 shop_list， 
具体 实现 的 部 分 代码 如 下 : 


< 
"设置 查询 该 用 户 的 所 有 商品 
Sql= "SELECT * FROM shop list WHERE user='" & Session("UserName") & "'" 
' 查 询 该 用 户 的 所 购 商 品 
set rs=Conn.Execute(Sql) 
"判断 是 否 存在 该 用 户 购买 的 商品 
If rs.EOF Then 
Response.Write "<CENTER><IMG SRC='figl.jpg'><P> 购 物 车 内 没 任何 商品 ! </P>" & 
"<P><A HREF='Catalog.asp'> 产 品类 型 </A></P></CENTER>" 
Else 
$%> 
<TABLE BORDER="0" ALIGN="Center"> 
<TR BGCOLOR="#ACACFF" HEIGHT="30" ALIGN="Center"> 
<% 
' 输 出 表 的 字段 名 称 作 为 选项 的 内 容 
For I = 0 To rs.Fields.Count - 1 
Response.Write "<TD>" & rs.Fields(I).Name & "</TD>" 
Next 
Response.Write "<TD>&nbsp7z</TD>" 
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Total = 0 
"获取 并 显示 商品 名 称 


Do While Not rs.EOF 
Str= "<TR HEIGHT='30' BGCOLOR="#EAEAFF'>" 


"输出 所 有 的 字段 名 称 
For 工 = 0 To rs.Fields.Ccount - 1 
Str = Str & "<TD>" & rs.Fields(I) .Value & "</TD>" 


Next 
Response.Write str 
Response.Write "<TD><A HREF='Delete.asp?ID=" & rs("ID") & "'> 删 除 


</A></TD></TR>" 
Total = Total + rs("TotalCost") 


rs.MoveNext 
Loop 
$%> 


11.2.4 在 线 付款 


本 例 使 用 网 银 在 线 付 款 接口 实现 在 线 付 款 。 本 系统 在 线 付 款 的 具体 操作 步骤 如 下 。 
(1) 单 击 图 11-7 所 示 页 面 中 的 “在 线 付 款 ” 链 接 ， 结 果 如 图 11-8 所 示 。 
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11-8 ”确认 订单 信息 


(2) 确定 购物 车 中 商品 和 总 价 是 否 正确 ， 正 确 后 单 击 “ 提 交 ” 按 钮 ， 结 果 如 图 11-9 所 示 。 

(3) 选择 用 户 持 有 卡 所 在 银行 ， 单 击 “ 立 即 支付 ”按钮 ， 结 果 如 图 11-10 所 示 。 

(4) 输入 用 户 持 有 卡 卡号 和 验证 码 , 单 击 “ 提 交 ” 按 钮 。 如 果 用 户 已 经 成 为 网 上 银行 用 户 ， 
交易 即 可 成 功 。 

使 用 网 银 付 款 系统 需要 经 过 如 下 步骤 。 

(1) 网 银 网 站 注册 。 

(2) 登录 网 银 网 站 。 

(3) 修改 MD5 密 钥 。 
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(4) 下 载 付款 ASP 接口 。 
(5) 调用 ASP 接口 。 
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本 小 节 对 网 银 网 站 注册 和 登录 的 步骤 不 再 讲述 ， 下 面 是 使 用 网 银 付款 接口 的 方法 。 
1. 付款 接口 


网 银 付款 接口 包括 发 送信 息 文件 Send.asp、 接 收 信息 文件 Receive.asp、 自 动 接 收 信息 文件 
AutoReceive.asp 和 MDS5 加 密 文 件 MD5.asp。 该 套 接口 的 使 用 流程 如 下 。 

(1) 通过 发 送 文 件 向 网 银 网 站 发 送 商户 号 、MD5 密 钥 和 订单 金额 。 

(2) 接收 支付 结果 并 显示 。 

(3) 网 银 网 站 从 客户 账户 上 划拨 相应 的 钱 款 到 商户 号 的 账户 上 。 

从 以 上 可 知 ， 需 要 向 网 银 网 站 发 送 商户 号 、MDS 密 钥 和 订单 金额 。 通常 需要 修改 Send.asp 
文件 中 的 相关 变量 ， 如 表 11-3 所 示 。 


表 11-3 发 送 文件 设置 信息 














字段 名 称 说 明 

v mid 商户 号 
key MD5 密 钥 
Vv_amount 订单 金额 
v_oid 订单 号 
V mone. 币 种 
Vv url 接收 支付 结果 的 页 面 

2. 调用 付款 接口 

调用 付款 接口 的 步骤 如 下 。 


(1) 把 文件 夹 chinabank 及 其 下 的 文件 复制 到 网 站 根 目录 下 。 
(2) 设置 文件 Send.asp 的 V_mid 为 商户 号 。 
(3) 设置 文件 Send.asp 的 key 为 在 网 银 网 站 设置 的 密 钥 。 
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(4) 设置 文件 Send.asp 的 v_url 为 接收 支付 结果 的 页 面 网 址 。 
(5) 调用 Send.asp 文件 并 向 其 传送 订单 金额 。 
本 实例 调用 Send.asp 文件 具体 的 实现 代码 如 下 : 


<% 
' 连 接 数 据 库 
Set Conn=Server.CreateObject ("ADODB .Connection") 
Conn.Connectionstring="Provider=Microsoft.Jet.OLEDB.4.0;"&_ 
"Data Source="&Server.MapPath ("STORE .mdb") 
Conn.Open 
"查询 当前 用 户 购 物 金额 
Sql= "SELECT * FROM shop list WHERE user='" & Session ("UserName") & "'" 
set rs=Conn.Execute (Sql) 
Dim Name 
' 判 断 是否 存 在 购买 的 商品 
If rs.EOF Then 
"没有 购物 
Response.Write "<CENTER><IMG SRC='figl.jpg'><P> 购 物 车 内 没 任何 商品 ! </P>" & _ 
"<P><A HREF='Catalog.asp'> 产 品类 型 </A></P></CENTER>" 
Else 
"保存 所 购 商 品 总 金额 
Total = 0 "设置 商品 的 总 价 初始 值 为 0 
"计算 商品 的 总 价 
Do While Not rs.EOF 
"保存 所 购 商 品名 称 
Name=Name&rs ("ShopName") &"<BR>" 
"计算 所 有 商品 金额 
Total = Total + rs("TotalCost") 
rs.MoveNext 
Loop 
End If 
' 输 出 表单 ， 并 设置 提交 网 址 到 send .asp 
"参数 v_ amount 为 总 成 交 金 额 
Response.wFite ("<form method='post'" 
action='chinabank/send.asp?V amount="&Total&"'>") 
务 > 
<TABLE BORDER="1" BGCOLOR="White" RULES="Cols" ALIGN="Center" 
CELLPADDING="5"> 
<TR HEIGHT="25"> <TD ALIGN="Center" BGCOLOR="#CCCC00"> 订 单 信息 </TD></TR> 
<TR HEIGHT="25"><TD> 商 品名 称 : <U><%= Name %></U></TD></TR> 
<TR HEIGHT="25"><TD> 货 款 : <U><%= Total %></U></TD></TR> 
</TABLE> 
<p align="center"> <input type="submit" value=" 提 交 " name="Bl"></p> 
<p align="center"><a href="car.asp"> 返 回 购物 车 </a> </p> 
</form> 


11.3 ”分 级 目录 模块 


分 级 目录 结构 是 一 个 树 型 结构 ， 在 网 络 应 用 程序 中 应 用 非常 广泛 。 具 有 如 下 两 个 特点 。 
(1) 直观 性 强 。 这 种 结构 分 类 明确 直观 ， 用 户 能 够 方便 地 找到 需要 的 目录 。 


NN 


画 
oe 
第 11 章 常见 模块 分 析 思 = 


(2) 便于 管理 。 对 系统 的 编写 和 维护 人 员 而 言 ， 这 种 结构 也 更 有 利于 程序 模块 化 的 实现 。 

本 节 主 要 介绍 一 种 使 用 ASP 和 JavaScript 实现 动态 分 级 目录 的 方法 。 动 态 分 级 目录 ， 是 指 
分 级 目录 的 各 个 节点 ， 依 据 数 据 库 中 的 数据 自动 生成 。 通 过 对 数据 库 进行 相应 增加 、 删 除 、 修 
改 操作 ， 控 制 分 级 目录 节点 的 内 容 ， 达 到 方便 、 直 观 、 快 捷 的 目的 。 


11.3.1 目录 分 级 流程 


本 节 介 绍 的 目录 分 级 结构 ， 不 同 的 层 使 用 不 同 长 度 字 符 表示 。 父 目录 使 用 两 位 字符 表示 ， 
子 目录 使 用 四 位 字符 表示 ， 以 此 类 推 。 子 目录 字符 序号 是 在 父 目 录 的 基础 上 加 上 两 位 字符 构成 
的 ， 这 两 位 字符 表示 子 目录 在 父 目录 中 的 排列 顺序 。 例 如 ， 使 用 01、02 表示 父 目 录 中 的 两 个 
节点 ，0101 和 0102 表示 01 节点 下 的 两 个 子 节点 ， 也 就 是 子 目录 中 的 两 个 节点 。 

动态 分 级 目录 主要 由 两 种 不 同 的 节点 构成 : 文档 节点 和 文件 夹 节点 。 文 档 节 点 是 动态 分 级 
目录 的 最 低层 节点 ， 相 当 于 一 个 超 链 接 ; 文件 夹 节点 下 可 以 有 若干 个 子 节点 ， 这 些 子 节点 可 以 
是 文档 节点 ， 也 可 以 是 文件 夹 节 点 。 这 样 就 形成 了 一 个 完整 的 分 级 目录 。 


11.3.2 数据库 设 计 


要 依据 上 述 原 理 实现 动态 分 级 目录 ， 需 要 建立 一 个 数据 库 表 Dir Info。 表 的 结构 如 表 11-4 
所 示 。 





表 11-4 表 Dir_Info 的 子 段 


字段 名 称 字段 含义 
ID 目录 序号 (主键 ) 
Title 目录 标题 
Content 目录 内 容 
Layer 层 的 级 别 
Type 节点 类 型 。1 表示 文件 夹 节点 ; 2 表示 文档 
IsDisp 是 否 显示 


在 表 Dir_Info 中 ， 父 目录 和 子 目录 通过 Layer 字段 联系 。 如 果 节 点 A 的 Layer 字段 值 为 
AB， 节 点 B 的 Layer 字段 值 为 AB01， 则 节点 B 为 节点 A 的 子 目 录 ， 节 点 A 为 节点 B 的 父 目 
录 。 另 外 ，Content 字段 表示 目录 内 容 ， 只 有 该 节点 是 文档 节点 才 起 作用 。 


11.3.3 ”分 级 目录 设计 


分 级 目录 显示 代码 保存 在 index.asp 文件 中 , 如 图 11-11 所 示 。 单 击 文件 夹 节点 可 以 展开 该 
节点 ， 显 示 其 所 有 子 节点 ; 再 次 单 击 该 文件 夹 节点 ， 可 以 隐藏 其 所 有 子 节点 。 

index.asp 文件 被 载 入 浏览 器 时 ， 调 用 init() 函 数 创建 动态 分 级 目录 的 根 节点 。 该 函数 调用 
Generate0 函 数 生成 所 有 目录 节点 。Generate0 函 数 是 一 个 递归 函数 ， 通 过 递归 调用 本 身 ， 依 据 
数据 库 中 数据 生成 分 级 目录 。 通 过 使 用 递归 函数 ， 使 得 程序 代码 简单 易 懂 ， 不 再 详细 说 明 。 
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图 11-11 分 级 目录 界面 
下 面 是 生成 分 级 目录 所 用 的 函数 。 代 码 如 下 : 


< 
"init () 过 程 为 初始 化 函数 
Sub init() 
call Generate(" ") ' 调 用 Generate 过 程 生成 节点 
End Sub 
"生成 文档 节点 
Sub WriteDoc (layer,title,Content) 
"显示 缩 进 空格 ， 空 格 个 数 为 layer 字符 的 个 数 
For i=1 To len(layer) 
Response.Write ("gnbsp; ") 
Next 
"输出 链接 
Response.write("<a href="&Content&" >"gtitleg"</a><br>") 
End Sub 
"生成 文件 夹 节点 
Sub WriteNode (layer,title) 
' 显 示 缩 进 空格 ， 空 格 个 数 为 ayer 字符 的 个 数 
For i=1 To len(layer) 
Response.Write ("gnbsp;") 
Next 
' 生 成 文件 夹 节点 的 图 片 和 层 信息 
Response.write("<img id=img"&layerg" src='img/plus.gif' border=0>"& 
"<a href="'#' onclick=showObj ('id"glayerg"','img"&layerg 
"')>"gtitleg" </a><br>") 
' 输 出 层 节点 
Response.write("<div id=id"&glayerg" style='display:none'>") 
End Sub 
' 生 成 节点 
' 连 接 数 据 库 
Sub Generate (layer) 
Set Conn=Server.Createobject ("Adodb.Connection") 
Conn.Connectionstring="Provider=Microsoft .Jet.OLEDB.4.0;"& 
"Data Source="&Server.MapPath ("user.mdb") 
Conn .Open 
Set rs=Server.Createobject ("Adodb.Recordset") 
"设置 查询 层 信息 的 SQL 语句 
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Sql="Select * from LayerST where IsDisp='17 and Layer Like '"glayerg"'" 
rs.Open Sql,Conn,1,1 
do while rs.EOF=False 
"处 理 文件 夹 节点 
IE rs("TYPe")="1” Then 
"生成 文件 夹 节 点 
call WriteNode (rs ("Layer") ,rs("Title") ) 
"生成 该 节点 的 子 节点 
Call Generate (rs("Layer")&" ") 
" 层 结束 
Response.write ("</div>") 
Else 
"生成 文档 节点 
call WriteDoc (rs ("Layer"),rs("Title"),rs("Content") ) 
End If 
rs.movenext 
loop 
rs-close 
Conn.close 
End Sub 
%> 


代码 说 明 如 下 。 

(1) Generate() 函 数 是 一 个 递归 函数 。 判 断 数据 库 记 录 的 类 型 如 果 是 文件 夹 节点 ， 生 成 
文件 夹 节点 并 调用 该 函数 生成 子 节点 ;如果 是 文档 节点 ， 生 成 文档 节点 。 

(2) WriteNode() 函 数 生成 文件 夹 节 点 。 文 件 夹 节点 使 用 层 显 示 和 隐藏 子 节点 。 

以 上 只 是 生成 节点 ， 并 不 能 展开 和 隐藏 子 节点 。 为 了 展开 和 隐藏 子 节点 ， 需 要 加 入 下 列 
JavaScript 代码 : 


<script> 
<! 一 -展示 和 隐藏 层 节点 
function showObj (str,imgid) { 
// 依 据 控件 的 名 称 获取 控件 对 象 
divobj=eval (str) ;//str 为 层 的 名 称 
imgobj=eval (imgid) ;//imgid 为 图 像 的 名 称 
// 获 取 层 的 显示 属性 
// 如 果 divobj .style.display 为 none， 表 示 层 处 于 隐藏 状态 
// 如 果 divobj .style.display 为 inline， 表 示 层 处 于 显示 状态 
if (divobj.style.display=="none") { 
// 设 置 图 像 的 源 文件 
imgObj .src="img/open.gif"; 
divobj .style.display="inline"; 
} 
Eae 4 
jimgobj .src="img/plus.gif"; 
divobj .style.display="none™"; 
} 
L 
</script> 
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代码 说 明 如 下 。 

(1) eval0 函 数 返回 层 和 图 片 的 对 象 变量 值 。 

(2) 根据 层 的 display 属性 设置 显示 或 隐藏 图 片 。display 属性 值 为 none, 表示 子 节点 隐藏 ; 
为 inline， 表 示 显 示 子 节点 。 


11.3.4 ”管理 界面 设计 


本 模块 除 显示 分 级 目录 的 部 分 以 外 ， 还 允许 管理 员 修 改 、 添 加 和 删除 分 级 目录 。 分 级 目录 
的 管理 界面 文件 为 Admin.asp， 界 面 效 果 如 图 11-12 所 示 。 
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图 11-12 分 级 目录 管理 界面 


下 面 为 管理 部 分 的 代码 ， 连 接 数 据 库 代码 省 略 。 下 面 的 代码 获取 所 有 的 分 级 目录 信息 ， 并 
生成 管理 表格 。 管 理 操作 包括 修改 、 增 加 和 删除 操作 。 有 具体 代码 如 下 : 


< 条 
"显示 所 有 项 目 记 录 
do while rs.EOF=False 
str="<tr><td width='25%'>"grs("Title")ég&" ("grs("Layer")&") </td>"g 
"<td width='25%' align='center'>"g"<a 
href='modify.asp?ID="&rs ("ID") g"&action=modify'> 修 改 </a>"&_ 
"</td><td width='25%' align='center'><a 
href='modify.asp?ID="&rs ("ID") g"&action=add'> 增 加 </a>"&_ 
"</td><td width='25%' align='center'><a 
href="'modify.asp?ID="&rs ("ID") g"&action=del' > 删除 </a></td></tr>" 
Response.write (str) 
rs.movenext 
Loop 
名 > 


本 段 代 码 在 生成 管理 条 目 时 ，action 值 的 说 明 如 表 11-5 所 示 。 
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表 11-5 action 值 的 说 明 
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action 值 值 的 含义 





i | 添加 目录 ( 单 击 “ 添 加 ”链接 时 产生 ) 





modify | 修改 目录 ( 单 击 “修改 ”链接 时 产生 ) 





delete 删除 目录 ( 单 击 “删除 ”链接 时 产生 ) 


11.3.5 添加 、 修 改 和 删除 操作 设计 


进行 这 3 种 操作 前 , 需要 获取 操作 的 ID 和 操作 类 型 。 Request.QueryString() 读 取 参 数 action 


和 id 值 。 代 码 如 下 ; 


< 条 
Rction=Request.QueryString("action") 
strID =Request.QueryString("ID") 

多 > 


1. 添加 节点 


在 管理 界面 中 单 击 节点 项 目的 “增加 ”链接 ， 在 该 节点 下 增加 一 子 节点 。 这 里 省 略 了 用 户 





输入 界面 ， 增 加 节点 的 核心 代码 如 下 : 


< 

"获取 节点 的 序号 
strID=Request.QueryString("ID") 

"获取 节点 属性 值 
StrTit1le=Request.Form("Title") 
strContent=Request .Form("Content") 
strType=Request .Form("Type") 
strIsDel=Request .Form("IsDisp") 
strLayer=Request .Form("Layer") 
' 连 接 数 据 库 


Set Conn=Server.Createobject ("Adodb.Connection") 


Conn.Connectionstring="Provider=Microsoft.Jet.OLEDB.4.0;"& 


"Data Source="&gServer.MapPath ("user.mdb") 

Conn.Open 
Set rs=Server.Createobject ("Adodb.Recordset") 

"设置 查询 SQL 语句 
Sql="Select * from LayerST where ID="&strID 
rs.Open Sql,Conn,1,1 

" 层 的 值 为 父 节点 和 输入 的 两 位 字符 形成 字符 串 
strLayer=Mid(strLayer,1,2) 
strLayer=rs ("Layer") &strLayer 
rs close 


"插入 节点 记录 


Sql="insert into LayerST (TiTle,Content, Layer,Type,IsDisp) values ('"& 


strTitleg"','"gstrContentg"', '"g&strLayerg"','"&strTypeg&"', '"&strIsDelg"')" 


Conn.Execute (Sql) 
各 > 
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2. 修改 节点 


修改 节点 的 代码 和 增加 节点 的 代码 相似 ， 只 是 把 插入 记录 的 数据 库 操作 换 成 了 更 新 操作 。 
代码 如 下 : 


Sql="update LayerST set Title='"gstrTitleg 
mn" Content=""&strContent&""', Type='"&strType& 
"', IsDisp='"g&strIsDelg"' where ID="&strID 
Conn.Execute (Sql) 


3. 删除 节点 
单 击 管理 界面 条 目的 “删除 ” 链接, 会 把 该 节点 和 子 节点 一 并 删除 。 删 除 操作 的 代码 如 下 : 


< 
Sql="update LayersT set Title='"gstrTitleg& 
"', Content="'"gstrContentg"', Type="'"&strTypeg& 
"', IsDisp='"&strIisDelg"' where ID="&strID 
Conn.Execute (Sql) 
务 > 


11.4 ”权限 设置 模块 


随 着 Internet 的 发 展 ， 管 理 网 络 化 已 成 为 趋势 。 基 于 Web 的 管理 信息 系统 ， 摆 脱 了 地 域 上 
的 限制 ， 使 信息 系统 的 管理 更 加 方便 ， 极 大 地 提高 了 工作 效率 。 但 基于 Web 的 网 络 管理 也 存 
在 很 多 问题 ， 用 户 的 权限 问题 便 是 其 中 一 个 方面 。 

权限 就 是 控制 用 户 访问 资源 的 方式 。 权 限 设 置 就 是 根据 用 户 不 同 级 别 设置 不 同 的 权限 ， 使 
其 查看 、 修 改 和 删除 指定 的 资源 。 下 面 介绍 权限 设置 的 实现 方法 。 


11.4.1 权限 原理 分 析 


本 例 主要 实现 不 同 用 户 对 资源 拥有 不 同 的 权限 。 例 如 ， 管 理 员 用 户 拥有 所 有 栏目 的 查看 、 
修改 和 删除 操作 ， 而 普通 用 户 只 拥有 某 些 栏目 的 查看 操作 。 在 本 例 中 ,用 户 分 为 普通 用 户 和 组 
用 户 。 组 用 户 由 管理 员 指定 组 权限 ， 属 于 该 组 的 用 户 都 拥有 该 组 的 所 有 权限 ; 普通 用 户 也 可 以 
由 管理 员 指定 相应 的 权限 ， 其 设置 权限 高 于 所 属 组 的 权限 。 资 源 包括 栏目 和 文章 。 


1. 用 户 和 资源 表 结构 


组 和 普通 用 户 的 权限 ， 就 是 对 栏目 和 文章 的 查看 、 修 改 和 删除 动作 。 为 了 实现 上 述 操作 ， 
需要 建立 用 户 表 和 资源 表 。 用 户 表 包括 组 用 户 表 Group_Info 和 普通 用 户 表 User_Info; 资源 表 
包括 栏目 表 Res_Info 和 文章 信息 表 File_Info。 表 User_Info 的 结构 如 表 11-6 所 示 ; 表 Group_Info 
的 结构 如 表 11-7 所 示 ; 表 Res_Info 的 结构 如 表 11-8 所 示 ; 表 File_Info 的 结构 如 表 11-9 所 示 。 
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表 11-6 表 User_iInfo 的 结构 





























字段 名 称 类 型 说 明 
ID 自动 编号 关键 字段 
User 文本 用 户 名 
pwd 文本 用 户 密码 
Group_D 数字 用 户 所 属 组 序号 

表 11-7 表 Group_lnfo 的 结构 

字段 名 称 类 型 说 明 
ID 自动 编号 关键 字段 
Name 文本 组 的 名 称 
GroupOwner 数字 组 的 管理 者 

表 11-8 表 Res_lInfo 的 结构 

字段 名 称 类 型 
ID 自动 编号 
Name 文本 
Owner 数字 

表 11-9 表 File_lInfo 的 结构 

字段 名 称 类 型 说 明 
ID 自动 编号 关键 字段 
Content 文本 文章 内 容 
LanMuID 数字 所 属 栏目 ID 
Owner 数字 文章 上 传 用 户 ID 
Allow 文本 用 户 权限 








2. 权限 表 结 构 


为 设置 用 户 对 资源 的 权限 ， 需 要 建立 表 存 放权 限 。 表 Group_Role 存放 组 用 户 权限 ， 结 构 
如 表 11-10 所 示 ; 存放 用 户 权限 的 表 为 User_ Role， 结构 如 表 11-11 所 示 。 


表 11-10 表 Group_Role 的 结构 



















字段 名 称 
ID 关键 字段 
GroupID 组 ID 
ResID 栏目 ID 
FileID 文章 ID 





组 用 户 权限 





Action 
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表 11-11 表 User_Role 的 结构 














Action 





3. 权限 


在 本 例 中 ， 权 限 包括 查看 、 修 改 和 删除 操作 。 拥 有 修改 某 资源 操作 的 用 户 ， 同 时 也 拥有 查 
看 该 资源 的 操作 。 同样 ， 拥 有 删除 某 资源 操作 的 用 户 ， 也 拥有 查看 和 修改 该 资源 的 操作 。 查看 、 
修改 和 删除 操作 分 别 使 用 1、3 和 7 表示 ，0 表示 没有 任何 权限 。 

在 本 例 中 ， 管 理 员 可 以 指定 用 户 对 资源 的 权限 。 例 如 ， 管 理 员 可 以 指定 栏目 或 者 文件 属 主 
拥有 查看 、 修 改 和 删除 权限 ， 该 资源 属 主 的 同 组 用 户 ， 拥 有 查看 和 修改 操作 ; 其 他 用 户 只 能 拥 
有 查看 操作 。 这 就 需要 对 权限 表示 方法 进行 相应 的 修改 ， 本 例 使 用 三 位 数字 表示 上 述 权限 。 第 
一 位 数字 表示 属 主 拥有 的 权限 ; 第 二 位 数字 表示 属 主 同 组 用 户 拥有 的 权限 ; 第 三 位 数字 表示 其 
他 用 户 拥有 的 权限 。 例 如 ， 权 限 731 就 可 以 表示 属 主 拥有 查看 、 修 改 和 删除 操作 ， 属 主 的 同 组 
用 户 拥有 查看 和 修改 操作 ， 其 他 用 户 只 能 拥有 查看 操作 。 


11.4.2 ”获取 权限 


获取 当前 用 户 对 栏目 和 资源 的 权限 ， 是 经 常用 到 的 操作 。 本 例 把 获取 权限 的 代码 集成 为 函 
数 。 取 得 栏目 权限 的 代码 由 函数 GetResAllow0 实 现 , 取得 文章 权限 的 代码 由 函数 GetFileAllow() 
实现 。 下 面 分 别 介绍 这 两 个 函数 。 

1. 函数 GetResAllow() 


函数 GetResAllow0 有 3 个 参数 ， 分 别 是 sttMessage、UserID 和 GroupID。 这 3 个 参数 分 别 
表示 栏目 名 称 、 用 户 ID 和 用 户 所 属 组 的 组 ID 。 该 函数 的 实现 流程 如 下 。 

(1) 获取 栏目 的 创建 者 (栏目 属 主 )。 

(2) 获取 栏目 创建 者 所 属 的 组 。 

(3) 判断 当前 用 户 是 否 为 栏目 创建 者 所 属 组 的 创建 者 ， 是 则 返回 所 有 权限 ， 结 束 执 行 。 

(4) 查询 当前 用 户 所属 组 对 该 栏目 拥有 的 权限 。 

(5) 查询 当前 用 户 对 该 栏目 拥有 的 权限 。 

(6) 判断 当前 用 户 是 否 为 栏目 创建 者 ， 是 返回 相应 权限 ， 结 束 执行 。 

(7) 判断 当前 用 户 与 栏目 属 主 是 否 为 同 组 ， 是 返回 相应 权限 ， 结 束 执行 。 

(8) 其 他 用 户 返回 相应 权限 。 

具体 实现 代码 如 下 : 

< 

"获取 用 户 操作 资源 的 权限 
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Public Function GetResAllow (strMessage,UserID,GroupID) 
' 连 接 数 据 库 
Set Conn=Server.Createobject ("Adodb.Connection") 
Conn.Connectionstring="Provider=Microsoft.Jet.OLEDB.4.0;"& 
"Data Source="&SerVer .MapPath ("user.mdb") 
Conn .Open 
' 去 除 栏目 名 称 中 的 空格 以 便 查询 
strMessage=trim(strMessage) 
"设置 从 表 Res_Info 查询 该 栏目 的 SQL 语句 
Sql="Select * From Res Info where Name='"&gstrMessageg&"'™" 
"执行 查询 语句 
Set rs=Conn.Execute(Sql) 
' 判 断 是 否 存 在 指定 的 栏目 
IE rS-.EOF=False Then 
' 获 得 该 栏目 的 序号 以 及 所 属 用 户 ID 
OwnerID=rs ("Owner") 
ResID=rs ("ID") 
Else 
' 没 有 该 栏目 则 结束 该 页 面 显示 
Response.End 
End If 
Dim Group Owner 
' 查 询 栏目 属 主 所 属 的 用 户 组 
Sql="Select GroupID From User Info where ID="&CInt (OwnerID) 
Set rs=Conn.Execute(Sql) 
"判断 用 户 所 在 的 组 是 否 存在 
TEITSsEOE=Ealse- Then 
"获得 栏目 属 主 所 在 的 组 
GroupOfOwner=rs ("GroupID") 
Else 
Response.End 
End If 
"判断 Groupofowner 组 的 创建 者 是 否 为 当前 用 户 
Sql="Select* From Group Info where ID="&CInt (GroupOfOwner)&" and 
GroupOwner="&CInt (UserID) 
Set rs=Conn.Execute(Sql) 
"存在 查询 结果 则 表示 Groupofowner 组 的 创建 者 是 当前 用 户 
"判断 是 否 存在 查询 结果 
IE rs.EOF=False Then 
"GroupOofOwner 组 的 创建 者 为 当前 用 户 
"当前 用 户 对 该 栏目 拥有 所 有 权限 ， 返 回 7 
GetResAllow=7 
End If 
Dim GroupAction,UserAction 
"获得 当前 用 户 所 在 的 组 对 该 栏目 所 拥有 的 权限 
Sql="Select Action From Group Role where GroupID="&CInt (GroupID) &" and 
ResID="&CInt (ResID) 
Set rs=Conn.Execute(Sql) 
"判断 该 组 是 否 拥有 对 该 资源 的 权限 
If rs.EOF=False Then 
"得 到 组 所 拥有 的 权限 
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GroupRAction=rs ("Action") 
End If 
' 获 得 用 户 对 该 栏目 的 权限 
Sql="Select Action From User Role where UserID="&CInt (UserID)&" and 
ResID="&Cint (ResID) 
Set Frs=Conn.Execute (Sql) 
"判断 用 户 对 该 资源 是 否 拥有 权限 
If rS-:EOF False Then 

"获得 用 户 对 该 栏目 的 权限 

UserAction=rs ("Action") 
到 Se 

UserAction="" 
End If 


Dim nUser,nGroup,Result 
"设置 用 户 的 权限 
"当前 用 户 为 该 栏目 的 属 主 
If UserID=OwnerID Then 
"判断 UserAction 是 否 为 空 。UserAction 为 用 户 的 操作 
If UserAction="" Then 
"当前 用 户 对 该 栏目 没有 特殊 权限 ， 返 回 所 在 组 的 权限 
Result=Cint (Mid (GroupAction,1,1)) 
Else 
"当前 用 户 对 该 栏目 的 权限 高 于 所 在 组 权限 
"设置 用 户 对 该 栏目 的 权限 
Result=Cint (Mid (UserAction, 1,1)) 
End If 
"当前 用 户 和 该 栏目 属 主 属 于 同一 组 
ElseIf GroupID=GroupOfOwner Then 
If UserAction="" Then 
"设置 该 用 户 的 权限 
Result=Cint (Mid (GroupAction,2,1)) 
Else 
Result=Cint (Mid (UserAction, 1,1)) 
End If 
' 当 前 用 户 为 其 他 用 户 
Else 
If UserAction="" Then 
"设置 该 用 户 的 权限 
Result=Cint (Mid (GroupAction, 3,1)) 
Else 
Result=Cint (Mid (UserAction, 1,1)) 
End If 
End If 
"返回 该 用 户 的 权限 
GetResAllow=Result 
End Function 
各 > 
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2. 函数 GetFileAllow () 


函数 GetFileAllow() 有 5 个 参数 ， 分 别 是 FileID、UserID、GroupID、OwnerID 和 Allow。 
这 5 个 参数 分 别 表示 文章 ID、 当 前 用 户 ID、 当 前 用 户 所 在 组 ID、 文 章 的 属 主 ID 和 操作 文章 
的 权限 。 该 函数 的 实现 流程 如 下 。 

(1) 获取 文章 创建 者 所 属 的 组 。 

(2) 判断 当前 用 户 是 否 为 文章 创建 者 所 属 的 组 的 创建 者 ， 是 则 返回 所 有 权限 。 

(3) 查询 用 户 对 该 文章 拥有 的 权限 。 

(4) 判断 当前 用 户 是 否 为 文章 创建 者 ， 是 则 返回 相应 权限 ， 否 则 执行 下 一 步 。 

(5) 判断 当前 用 户 与 文章 属 主 是 否 为 同 组 ， 是 则 返回 相应 权限 ， 否 则 执行 下 一 步 。 

(6) 其 他 用 户 返回 相应 权限 。 

具体 实现 代码 如 下 : 


< 要 
"获取 用 户 对 文件 的 操作 权限 
Public Function GetFileAllow (FileID,UserID,GroupID,OwnerID, Allow) 
' 连 接 数 据 库 
Set Connl=Server.Createobject ("Adodb.Connection") 
Connl.Connectionstring="Provider=Microsoft.Jet.OLEDB.4.0;"& 
"Data Source="&Server.MapPath ("user.mdb") 

Connl .Open 
Dim GroupOfOwner 
' 查 询 文章 属 主 所 在 的 组 
Sql="Select GroupID From User Info where ID="&OwnerID 
Set rs=Conn]l.Execute(Sql) 
IE rsS.EOF=False Then 

GroupOfOwner=rs ("GroupID") 
Else 

Response.End 
End If 
Dim nUser,nGroup,Result 
"查询 当前 用 户 是 否 为 文章 属 主 所 在 组 的 创建 者 
Sql="Select * From Group Info where ID="&CInt (GroupOfOwner) &"” and 
GroupOwner="&CInt (UserID) 
Set rs=Conn]l.Execute(Sql) 
"判断 当前 用 户 是 否 文章 所 在 组 的 创建 者 。 如 果 存 在 查询 结果 则 表示 该 用 户 为 文章 所 在 组 的 创建 者 
IE rs-.EOF=False Then 

' 当 前 用 户 为 文章 属 主 所 在 组 的 创建 者 ， 设 置 该 用 户 拥 有 所 有 权限 
Result=7 
Else 

' 查 询 当 前 用 户 是 否 对 该 文章 拥有 特殊 权限 

Sql="Select Action From User Role where UserID="&CInt (UserID)é&" and 
FileID="&Cint (FileID) 

Set rs=Connl .Execute(Sql) 

"如 果 存 在 查询 结果 则 表示 该 用 户 对 该 文章 拥有 权限 

IE rs.EOF=False Then 

UserAction=rs ("Action") 
Else 





M/k 


开发 (第 2 版 ) 





UserAction="" 
End If 
"当前 用 户 为 文件 属 主 
IE UserID=OwnerID Then 
If UserAction="" Then 
Result=Cint (Mid (Allow,1,1)) 
Else 
Result=Cint (Mid (UserAction,1,1)) 
End If 
"当前 用 户 与 文件 属 主 同属 一 组 
Elself GroupID=GroupOfOwner Then 
If UserAction="" Then 
Result=Cint (Mid (Allow, 2,1)) 
Else 
Result=Cint (Mid (UserAction,1,1)) 
End If 
"当前 用 户 为 其 他 用 户 
Else 
If UserAction="" Then 
Result=Cint (Mid (Allow, 3,1)) 
Else 
Result=Cint (Mid (UserAction, 1,1)) 
End If 
End If 
End If 
Connl.close 
' 返 回 用户 权 限 
GetFileAllow=Result 
End Function 
$%> 


11.4.3 ”页面 显示 





显示 给 用 户 的 页 面 是 由 栏目 和 文章 标题 组 成 。 每 个 用 户 对 每 个 栏目 和 文章 拥有 的 权限 不 
同 ， 所 看 到 的 页 面 也 就 不 同 。 在 输出 页 面 内 容 时 ， 根 据 用 户 ID 和 栏目 内 容 或 者 文章 ID， 获 取 
用 户 对 该 栏目 或 者 文章 的 操作 权限 。 如 果 拥 有 可 读 以 上 权限 ， 则 显示 该 栏目 或 者 文章 。 

获取 权限 的 函数 保存 在 function.asp 文件 中 ， 使 用 该 函数 需要 包含 该 文件 。 包 含 代码 如 下 : 


<!--#include file="function.asp"--> 


下 面 为 页 面 显示 一 个 栏目 的 主要 代码 , 代码 中 有 详细 的 注释 , 就 不 再 另外 说 明 。 代码 如 下 : 


< 对 
"获取 当前 用 户 对 "公告 栏 "栏目 的 权限 
"UserID 为 当前 用 户 的 ID 
"GroupID 为 当前 用 户 所 在 的 组 的 ID 
nCode=Cint (GetResAllow ("公告 栏 ", UserID, GroupID) ) 
' 可 读 以 上 权限 就 可 显示 该 栏目 
If nCode>=1 Then 
各 > 
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<tr> 
<td> 
<table border="0" width="100%" id="table3" height=100> 
<tr> 
<td><IMG height=20 src="img/TitleSsquare.gif" width=20> 
<font face=" 华 文 行 楷 " size="6" color="#0000FF"> 公 告 栏 </font> 
</td></tr> 
< 条 
"输出 "公告 栏 "中 的 文章 标题 
， OutPutFileContent 为 输出 文章 标题 的 函数 
OutPutFileContent "公告 栏 ", UserID, GroupID 
$%> 
</table> 
</td> 
</tr> 
< 条 
End If 
$%> 


其 中 ，OutPutFileContent() 函 数 为 输出 文章 标题 的 函数 。 该 函数 有 3 个 参数 ， 分 别 为 
strMessage、UserID 和 GroupID， 分 别 表示 栏目 名 称 、 当 前 用 户 的 ID 和 当前 用 户 所 在 组 的 ID。 
如 果 当 前 用 户 拥有 该 栏目 的 相应 权限 ， 该 函数 输出 文章 标题 。 

该 函数 的 实现 流程 如 下 。 

(1) 获取 栏目 创建 者 。 

(2) 查询 该 栏目 下 的 所 有 文章 。 

(3) 获取 当前 用 户 对 文章 的 权限 。 

(4) 拥有 查看 权限 则 显示 文章 ， 和 否则 转向 (2)。 

下 面 是 该 函数 的 代码 : 


< 条 
Public Function OutPutFileContent (strMessage,UserID, GroupID) 
"连接 数据 库 
Set Conn=Server.Createobject ("Adodb.Connection") 
Conn.Connectionstring="Provider=Microsoft .Jet.OLEDB.4.0;"& 
"Data Source="&SerVer.MapPath ("user.mdb") 

Conn.Open 
strMessage=trim(strMessage) 
' 查 询 该 栏目 的 创建 者 
Sql="Select * From Res Info where Name='"g&gstrMessageg"'" 
Set rs=Conn.Execute(Sql) 
If rs.EOF=False Then 

OwnerID=rs ("Owner") 
ES 

Response.End 
End If 
' 查 询 该 栏目 下 的 文章 
Sql="Select * From File Info where LanMuID="&CInt (rs ("ID")) 
Dim nCount 
"设置 变量 ncount， 保 存 显示 文章 的 数目 


nCount=0 
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Set rs=Conn.Execute(Sql) 
"对 该 栏目 下 所 有 的 文章 进行 处 理 。 如 果 当 前 用 户 拥有 查看 权限 则 显示 该 文章 
Do while rs.EOF=False 
"得 到 当前 用 户 对 该 栏目 的 权限 
nCode=GetFileAllow (rs ("ID"),UserID, GroupID, rs ("Owner") ,Ts ("Allow")) 
"判断 是 否 显示 文章 内 容 
IE nCode>=1 Then 
"可 读 以 上 权限 则 显示 文章 标题 
"显示 文章 的 数目 加 1 
nCount=nCount+1 
Response.write("<tr><td>") 
Response.Write("."grs ("Content")) 
Response.Write("</td></tr>") 
End If 
' rs.movenext 
loop 
' 判 断 是 否 有 文章 显示 
If nCount=0 Then 
"没有 文章 显示 ， 显 示 提 示 信 息 
Response.write("<tr><td>") 
Response .Write ("和 暂 无 该 栏目 信息 "”) 
Response.Write("</td></tr>") 
End If 
OutPutFileContent=1 
End Function 
$%> 


.4.4 设置 权限 


管理 员 拥有 设置 用 户 权限 的 界面 。 设 置 权限 的 界面 如 图 11-13 所 示 ， 左 侧 为 用 户 所 能 管理 


的 项 目 , 右 侧 为 该 项 目 设置 权限 的 界面 。 在 该 界面 , 管理 员 可 以 增加 、 修 改 和 删除 栏目 和 文章 ， 


可 以 设置 组 用 户 和 普通 用 户 对 该 资源 的 权限 。 
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图 11-13 设置 权限 的 界面 
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该 部 分 的 代码 具体 实现 过 程 如 下 。 

(1) 显示 当前 用 户 可 修改 的 资源 。 

用 户 可 修改 的 资源 包括 可 修改 的 栏目 和 文章 。 下 面 是 显示 用 户 可 修改 的 栏目 代码 (显示 可 
修改 文章 的 代码 与 其 相似 这 里 不 作 介绍 ): 


< 各 
"连接 数据 库 
Set Conn=Server.Createobject ("Adodb.Connection") 
Conn.Connectionstring="Provider=Microsoft.Jet.OLEDB.4.0;"& 
"Data Source="&Server.MapPath ("user.mdb") 
Conn.open 
"获取 文章 序号 和 用 户 所 在 组 的 序号 
UserID=Cint (Session("Id") ) 
GroupID=Cint (Session ("GroupID") ) 
"查询 所 有 栏目 
Sql="Select * From Res Info " 
Set Frs1l=Conn.Execute (Sql) 
"对 所 有 的 记录 进行 处 理 ， 依 据 用 户 对 资源 的 权限 进行 设置 
do while rsl.EOF=False 
strName= rsl ("Name") 
"获取 用 户 对 栏目 的 权限 
"显示 能 修改 文章 ， 下 面 代 码 只 需 修改 成 
'nCode=GetFileAllow (rsl ("ID"),UserID,GroupID, rsl ("Owner") ,rsl ("Allow")) 
nCode=GetResAllow (strName, UserID, GroupID) 
' 具 有 修改 和 删除 权限 才 显示 栏目 
If nCode>1 Then 
Response.wFite ("<tr><td>") 
Response.write ("<a 
href='right .asp?ID="&rsl ("ID") g"&Type=LM'>"grsl ("Name") &"</a>") 
Response.write ("</td></tr>") 
End If 
rsl.movenext 
loop 
$%> 


(2) 显示 修改 资源 的 界面 。 
修改 资源 的 界面 包含 用 户 可 进行 的 操作 、 组 权限 和 用 户 权限 。 界 面 与 图 11-13 所 示 的 界面 
类 似 ， 这 里 不 再 介绍 。 
根据 资源 类 型 Type、 资 源 ID 和 用 户 信 息 ， 可 以 取得 上 述 所 需 信息 。 下 面 为 显示 修改 栏目 
界面 的 代码 (显示 修改 文件 信息 界面 的 代码 与 其 相似 ， 读 者 可 参考 配套 资源 中 的 文件 代码 ， 这 
里 不 再 讲述 ): 
<% 
'TypeRes 表示 资源 类 型 。LM 表示 栏目 ，File 表示 文件 
If TypeRes="LM" Then 
' 显 示 栏目 名 称 ，rs ("Name") 为 栏目 名 称 
"省 略 了 查询 栏目 名 称 的 方法 


Response.write ("<P align='center'><font face=' 华 文 行 楷 ' size='6" 


Color="#0000FF'>"E&_ 
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Ts ("Name")&"</font></p> ") 
Dim strName 
strName=rs ("Name") 
"获得 当前 用 户 对 该 栏目 的 权限 
nCode=Cint (GetResAllow (strName, Session("Id"),GroupID)) 
"具有 修改 和 删除 该 栏目 权限 才 可 显示 该 栏目 
If nCode>1 Then 
' 显 示 Form 
Response.write ("<form method="'POST' 
action='modify.asp2?TYpe=LM&ID="&ID&"'><select size="'1' 
name="'SelectAction'>") 
' 显 示 增 加 和 修改 操作 
Response.write ("<option value='Adqd'> 增 加 </option>") 
Response.write ("<option value='Modify'> 修 改 </option>") 
"具有 删除 权限 则 显示 删除 操作 
If nCode=7 Then 
Response.write ("<option value='Delete'> 删 除 </option>") 





End If 
Response.write(" </select> ") 
' 显 示 栏 目 名 称 输入 框 
Response.write ("<p> 栏 目 名 称 : <input type='LanMu' name='T1' size='20' 
Value='"& 
strName &"'></p>") 
$> 
<p> 组 用 户 : <select size="1l" name="SelectGroup"> 
<% 
' 查 询 组 用 户 


Sql="Select * From Group Info where ID>"&GroupID 

Set rs=Conn.Execute (Sql) 

"把 所 有 的 组 用 户 加 入 下 拉 列 表 框 

Do while rs.EOF=False 

Response.write ("<option 
value='"grs ("ID")g&"'>"grs ("Name") &"</option>") 
rs.movenext 

loop 
务 > 
</select> 
<p> 组 权限 : gnbsp; 
<input type="checkbox" name="C" value="100" > 栏目 主观 看 
<input type="checkbox" name="C" value="300" > 栏目 主 修改 
<input type="checkbox" name="C" value="700" > 栏目 主 户 删除 </p> 
<p>&nbsp; gnbsp; gnbsp; tnbsp; gnbsp; gnbsp; &nbsp; 
<input type="checkbox" name="C" value="10" > 同 组 用 户 观 看 
<input type="checkbox" name="C" value="30" > 同 组 用 户 修改 
<input type="checkbox" name="C" value="70" > 同 组 用 户 删 除 </p> 
<p>&nbsp; gnbsp; gnbsp; gnbsp; gnbsp; &nbsp; &nbsp; 
<input type="checkbox" name="C" value="1l" > 其 他 用 户 观 看 
<input type="checkbox"” name="C" value="3" > 其 他 用 户 修改 
<input type="checkbox"” name="C" value="7" > 其 他 用 户 删 除 </p> 
<p> 设 置 其 他 用 户 对 本 栏目 权限 </p> 


<p> 用 户 : <select size="1"” name="SelectUser"> 
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<%$ 
' 查 询 当 前 用 户 所 能 管理 的 所 有 用 户 
Sql="Select * From User Info where GroupID>"gGroupID 
Set rs=Conn.Execute (Sql) 
Do while rs.EOF=False 
"显示 用 户 
Response.write ("<option 
value="'"grs ("ID")&"'>"grs ("user")&"</option>") 
rs.movenext 
loop 
$%> 
</select><input type="checkbox" name="U" value="1"> 观 看 
<input type="checkbox" name="U" value="3"> 修 改 
<input type="checkbox" name="U" value="7"> 删 除 </p> 
<p><input type="submit" value=" 确 定 ” name="Bl"><input type="reset" value=" 重 
置 " name="B2"></p> 
</form> 
< 名 
End If 
End If 
$> 


11.4.5 ”权限 存储 


用 户 设置 的 权限 操作 包括 增加 、 修 改 和 删除 用 户 的 权限 。 用 户 设置 的 权限 信息 需要 保存 到 
数据 库 中 。 权 限 存储 的 过 程 如 下 。 

(1) 取得 操作 的 类 型 添加、 修改 或 删除 操作 。 

(2) 取得 组 用 户 权 限 。 

G) 取得 设置 的 用 户 权限 。 

(4) 判断 用 户 操作 类 型 。 如 果 是 增加 资源 ， 则 转 (7)。 

(5) 如 果 是 修改 资源 ， 则 转 (8)。 

(6) 如 果 是 删除 资源 ， 则 转 (9)。 

(7) 增加 资源 。 

(8) 修改 资源 。 

(9) 删除 资源 。 

具体 实现 过 程 如 下 。 

(1) 取得 用 户 操作 的 类 型 。 代 码 如 下 


SelectAction=Request .Form("SelectAction") 


(2) 取得 组 用 户 权限 。 

用 户 可 以 设置 用 户 对 资源 的 操作 权限 ， 也 可 以 设置 组 用 户 对 资源 的 操作 权限 。 下 面 是 获取 
组 用 户 权限 的 代码 : 

<% 


' 组 权限 保存 在 多 选 框 cC 中 
val=split (Request .Form("C"),",") 
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"设置 权限 的 初始 值 
nTempl=0 
nTemp2=0 
nTemp3=0 
"获取 所 设置 的 权限 的 最 大 权限 
for each V in val 
nval=Cint (trim(v) ) "获取 权限 值 
"判断 设置 权限 类 型 : 属 主 的 权限 、 同 组 用 户 权限 、 其 他 用 户 权限 
If nval>=100 Then 
' 多 选 框 值 大 于 等 于 100 为 设置 的 属 主权 限 
"获取 属 主 最 大 权限 也 就 是 权限 为 其 最 大 值 
If Int (nval/100) >nTemp1l Then nTempl=Int (nval/100) 
El1seIfE nval>=10 Then 
"多 选 框 值 大 于 10 小 于 100 为 设置 的 同 组 用 户 权限 
"获取 同 组 用 户 最 大 权限 ， 也 就 是 权限 的 最 大 值 
If Int (nval/10) >nTemp2 Then nTemp2=Int (nval/10) 
ElselIf nval>=1 Then 
' 多 选 框 值 小 于 10 为 设置 的 其 他 用 户 权 限 
"获取 其 他 用 户 的 最 大 权限 
If nval>nTemp3 Then nTemp3=nval 
End IF 
Next 
"计算 组 用 户 所 具有 的 权限 
nval=nTempl*100+nTemp2*10+nTemp3 
$%> 


(3) 取得 设置 的 用 户 权 限 。 
用 户 权限 就 是 为 用 户 设置 权限 的 最 大 值 。 具 体 实现 代码 如 下 : 


<% 

' 组 权限 保存 在 多 选 框 口中 
val=split (Request .Form("U"),",") 
nTempl=0 
"获取 最 大 权限 
for each V in val 

nTval=Cint (trim(v) ) 
"权限 为 其 最 大 值 

If nTval>nTempl Then nTempl=nTval 
Next 
$%> 


(4) 增加 资源 。 
资源 包括 栏目 和 文章 。 不 同 的 资源 保存 到 不 同 的 表 中 , 栏目 保存 到 表 Res_Info 中 ,文章 保 
存 到 表 File_Info 中 。 增 加 资源 的 代码 如 下 : 


< 
"根据 资源 类 型 设置 表 名 和 字段 名 

If Typea="LM" Then 
Forum="Res Info™ 
ForumID="ResID" 
ForumName="Name" 

ElseIf Typea="File" Then 
Forum="File Info" 
ForumID="FileID" 
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ForumName="Content" 
End If 
' 查 询 该 资源 是 否 存在 
Set rs=Conn.Execute("Select * from "gForumg&" where 
"gForumName&"="'"g&Contentg"'") 
"判断 资源 是 否 存在 
TEFSEEOR false Then 
Response .write ("该 项 目 已 经 存在 ! <BR>") 
Else 
"设置 插入 语句 
Sql="Insert into "gForumg&"("&ForumNameg&",Owner" 
"判断 资源 的 类 型 
If Typea="File" Then 
"设置 文件 标题 、 所 属 栏目 、 创 建 者 以 及 权限 
Sql=Sql&", LanMuID,Allow) values('"&Contentg"',"g& 
Session("Id")&","&Request.Form("LMID")&", '"gnValg"')" 
Conn.Execute (Sql) 
"获得 插入 资源 的 ID 
Set rs=Conn.Execute("select ID from File Info where Content='"g&gContentg"'") 
ID=CInt (rs ("ID")) 
Else 
Sql=Sql&") values('"gContentg"',"g&Session("Id")&")" 
"插入 新 的 栏目 
Conn .Execute (Sql1) 
"取得 新 栏目 的 ID 
Set rs=Conn .Execute ("select ID from Res Info where Name='"&Content&"'") 
ID=CInt (rs ("ID")) 
"设置 该 栏目 的 组 权限 
Sql="Insert into [Group Role] ([GroupID], [ResID], [Action]) values ("& 
SelectGroup&"，"&ID&"，'"&nVal&"')" 
Conn .Execute (Sql) 
End If 
"设置 用 户 对 该 栏目 或 者 文件 的 特殊 权限 
Sql="Insert into [User Role] ([UserID], ["&ForumID&"], [Action]) values ("& 
SelectUserg&"，,"&ID&"，'"&nTempl&"'")" 
Conn .Execute (Sql) 
End If 
务 > 


(5) 修改 资源 。 
修改 资源 的 操作 可 以 修改 资源 的 名 称 、 资 源 所 属 的 栏目 以 及 用 户 对 该 资源 的 权限 。 代 码 如 下 : 


< 多 
"设置 更 新 语句 
If Typea="File" Then 
"更 新 文件 信息 
Sql=Sql&"， [LanMuID]="&Request.Form("LMID") &"， [ALl1ow]=""&nVal&g"' where 
ID="&ID 
Conn .Execute (Sql1) 
Else 
"更 新 栏目 信息 
Sql=Sqlg&" where ID="&ID 
Conn -Execute (Sql) 
"更 新 组 用 户 对 该 栏目 的 权限 
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Sql="Update [Group Role] set 
[GroupID]="&SelectGroupg&",， [ResID]="&IDg", [Action]="& 
nValg" where GroupID="&SelectGroupg&" and ResID="&ID 
Conn.Execute (Sql) 
End If 
"更 新 用 户 对 该 栏目 的 特殊 权限 
Sql="Update User Role set [UserID]="&SelectUserg", ["&ForumIDg&g 
"]="gIDg", [Rction]="&nTempl&" where UserID="&SelectUser&" and 
"&ForumIDg"="&ID 
Conn.Execute (Sql) 
各 > 


(6) 删除 资源 。 
删除 资源 时 不 但 要 删除 资源 记录 ， 还 要 删除 用 户 对 该 资源 的 权限 记录 。 代 码 如 下 : 


< 要 
"删除 资源 信息 
Sql="delete from "&Forum&"” where ID="&ID 
Conn .Execute (Sql1) 
"删除 组 用 户 对 该 资源 的 权限 
Sql="delete from Group Role where "&ForumID&"="&ID 
Conn .Execute (Sql1) 
"删除 用 户 对 该 资源 的 特殊 权限 
Sql="delete from User Role where "&ForumID&"="&ID 
Conn .Execute (Sql1) 
Response.write ("删除 成 功 ") 
$%> 


11.5 ”分 页 显示 模块 


如 果 网 页 需要 显示 的 记录 量 过 大 ,会 导致 网 页 结构 异常 。 用 户 浏览 时 ， 非 常 不 方便 ; 同时 


降低 了 网 页 显示 速度 。 为 了 克服 这 种 情况 的 出 现 ， 大 多 数 设 计 者 把 大 记录 量 的 网 页 分 解 成 多 页 
显示 ， 每 页 显示 一 定数 目的 记录 ， 也 就 是 采用 分 页 显示 的 模式 ， 如 图 11-14 所 示 。 
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图 11-14 分 页 界面 
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11.5.1 分 页 原理 分 析 


常用 的 分 页 方法 通常 使 用 Recordset 对 象 获 取 所 有 满足 条 件 的 记录 ; 再 根据 请 求 页 号 和 页 
面 的 大 小 ， 使 用 Recordset 对 象 的 属性 进行 定位 操作 ， 读 取 记 录 数 据 作 为 请 求 页 数据 。 这 种 方 
法 通常 用 到 Recordset 对 象 的 PageSize、PageCount 和 AbsolutePage 属性 。PageSize 属性 设置 每 
页 显示 的 记录 数目 , 属性 PageCount 获取 记录 集 包 含 的 总 页 数 , 属性 AbsolutePage 设置 当前 页 。 

这 种 分 页 方法 ， 原 理 简单 ， 但 是 每 次 操作 需要 把 满足 条 件 的 数据 全 部 读 取出 来 。 如 果 数 据 
记录 量 过 大 ， 这 种 方法 会 占用 大 量 的 内 存 ， 浪 费 很 多 服务 器 资源 。 还 有 另外 一 种 分 页 方法 ， 获 
取 数 据 库 中 满足 条 件 记录 数目 ， 根 据 请 求 页 号 和 页 面 大 小 ， 直 接 读 取 请 求 页 面 的 记录 数据 。 这 
种 方法 不 使 用 Recordset 对 象 ， 利 用 当前 页 记录 的 关键 字段 查询 前 后 页 的 记录 。 这 种 方法 需要 
使 用 SQL 查询 语句 。 


11.5.2 ”使 用 Recordset 对 象 进行 分 页 


使 用 Recordset 对 象 的 属性 进行 分 页 操作 ， 需 要 解决 下 面 的 问题 。 

1. 设置 每 页 记录 数目 

[以 通过 Recordset 对 象 的 PageSize 属性 设置 每 页 记录 数目 , 默认 值 为 10。 设 置 语句 如 下 : 
rs.Pagesize = npagesize 

2. 得 到 总 页 数 

以 通过 Recordset 对 象 的 PageCount 属性 得 到 总 页 数 。 代 码 如 下 : 


| 


| 


nPageCount=rs .PageCount 
3. 设置 当前 页 
可 以 通过 Recordset 对 象 的 AbsolutePage 属性 设置 当前 页 。 设 置 当前 页 后 ， 就 可 以 获得 该 
页 的 记录 。 设 置 语句 如 下 : 

rs.AbsolutePage=nPageNo 


下 面 是 使 用 Recordset 对 象 的 属性 进行 分 页 的 代码 : 





< 

' 连 接 数 据 库 

Set Conn=Server.Createobject ("Adodb.Connection") 

Conn.Connectionstring="Provider=Microsoft .Jet.OLEDB.4.0;"& 
"Data Source="&Server.MapPath ("user.mdb") 

Conn.Open 

Set rs=Server.Createobject ("Adodb.Recordset") 

"查询 所 有 记录 

Sql="Select * from LayerST " 

rs.Open Sql,Conn,l1,l1l 

"nPagesize 保存 每 页 显示 记录 的 数目 

"nPageNo 保存 当前 页 码 

'nPageCount 保存 总 的 页 数 


M/k 


网 站 开发 (第 2 版 ) 





Dim nPageSize,nPSize,nPageNo,nPageCount 
"定义 每 页 的 记录 数目 
npPageSize=2 
"判断 是 否 存在 记录 
If rs.RecordCount=0 Then 
"没有 查找 到 记录 
Response.Write ("没有 指定 的 记录 ! ") 
Else 
"设置 每 页 的 记录 数目 
rs.PageSize = nPageSize 
"得 到 当前 页 号 
nPageNo=CInt (Request .Querystring ("page")) 
' 得 到 当前 的 页 面 数 


nPageCount=rs .PageCount 


"确保 页 面 号 在 页 面 总 数 范围 内 
If nPageNo<1 Then 
nPageNo=1 
Elself nPageNo>rs.PageCount Then 
nPageNo=rs .PageCount 
End If 


"设置 当前 页 
rs.AbsolutePage=nPageNo 
$> 
<p align="center"><font face=" 华 文 行 楷 "” size="6" color="#0000FF"> 分 页 显示 
</font></p> 
<div align="center"> 
<table width="200" border="]" > 
< 
<td align="center"> 标 题 </td> 
center"> 内 容 </td> 
center"> 代 码 </td> 





"输出 当前 页 记录 

For 1i=1 to rs.pagesize 
Response.Write ("<TR><td>"grs ("Title")g"</td><td>"g 
rs("Content")g"</td><td>"grs ("Layer")&"</td></tr>") 
rs.movenext 
' 判 断 是 否 结束 
If rs.EOF Then Exit For 

Next 


Response.Write("</table>") 
rs.Close 
Conn.Close 

End If 

"输出 页 的 链接 

If nPageNo=1 Then 

"输出 "首页 " 
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Response.Write ("首页 ") 
ElseIf nPageNo>1 Then 
"输出 "前 一 页 "链接 
Response.Write ("<a href=index.asp?page="&nPageNo-1&"> 前 一 页 </a>") 
End If 
If nPageNo=nPageCount Then 
"输出 " 尾 页 " 
Response.Write(" 尾 页 ") 
ElseIf nPageNo<nPageCount Then 
"输出 "后 一 页 "链接 
Response.Write ("<a href=index.asp?page="&nPageNo+1&"> 下 一 页 </a>") 
End If 
Response.Write("</div>") 
务 > 


11.5.3 直接 获取 请 求 页 面 记录 


直接 获取 请 求 页 面 的 记录 需要 解决 下 面 的 两 个 问题 。 

(1) 获取 记录 数目 及 总 页 数 。 

(2) 获取 指定 页 的 记录 。 

其 中 ， 获 取 指 定 页 的 记录 相对 比较 麻烦 。 直 接 获 取 请 求 页 面 记 录 的 具体 实现 代码 如 下 。 

1. 获得 记录 总 数目 

通过 SQL 语言 的 Count 关键 字 可 以 获得 记录 总 数目 。SQL 语句 如 下 : 

< 条 

Set Conn=Server.Createobject ("Adodb.Connection") 

Conn.Connectionstring="Provider=Microsoft .Jet.OLEDB.4.0;"& 
"Data Source="&Server.MapPath ("user.mdb") 

Conn.Open 

"设置 获取 记录 数目 的 SQL 语句 

Sql="Select count (*) As RecordCount from LayerST" 

Set Frs=Conn.Execute (Sql) 


nCount=rs ("RecordCountn) "获取 的 记录 数目 保存 在 变量 nCcount 中 
%> 


2. 获得 记录 总 页 数 

获得 记录 总 页 数 的 方法 很 简单 。 记 录 总 页 数 就 是 总 记录 数 除 以 每 页 记录 数 的 商 。 但 是 要 考 
虑 商 有 无 小 数 的 情况 : 有 小 数 ， 则 总 页 数 加 1; 无 小 数 ， 则 不 加 。 

IntO 函 数 的 参数 为 负数 时 ， 返 回 值 为 小 于 该 参数 的 第 一 个 值 。IntO) 函 数 可 解决 该 问题 ， 方 
法 如 下 : 

<% 

DnPageSize=10 


nPageCount=Int ( (nCount/nPageSize)*(-1))*(-1) 
务 > 
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3. 获得 指定 记录 

通过 SQL 语言 的 TOP 关键 字 可 以 获得 指定 记录 。 关 键 字 TOP 可 以 返回 指定 数目 的 记录 数 。 
下 一 页 的 记录 就 是 记录 序号 ID 大 于 本 页 最 后 一 个 记录 序号 的 nPageSize 个 记录 。 查 询 下 一 页 记 
录 的 SQL 语句 如 下 : 


Sql="Select Top "&nPageSizeg&g" ID,Content,Title From LayerST where 
ID>"&nCursePos 


代码 说 明 : nCursePos 为 当前 页 最 后 一 条 记录 的 ID 值 ，nPageSize 为 页 面 记录 数目 。 

查询 前 一 页 记录 相 比 查询 后 一 页 记录 麻烦 。 前 页 的 记录 ,就 是 记录 序号 小 于 当前 页 第 一 条 
记录 序号 ,并且 序号 最 接近 当前 页 第 一 条 记录 序号 的 nPageSize 条 记录 。 使 用 SQL 语句 获取 前 
一 页 记录 的 代码 如 下 : 


Sql="Select Top "&nPageSize&" ID,Content,Title From LayerST where ID IN"& 
" (Select Top "gnPageSizeg" ID From LayerST where ID<"&nCursePos & 
™ order by ID DESC) order by ID " 


代码 说 明 如 下 。 

(1) nCursePos 为 当前 页 第 一 条 记录 的 ID 值 。 

(2) 对 ID 值 小 于 nCursePos 所 有 记录 进行 降序 排列 , 前 nPageSize 条 记录 就 是 前 一 页 的 记 
录 的 降序 排列 。 

下 面 是 直接 获取 页 面 记录 进行 分 页 的 主要 代码 。 代 码 中 已 经 加 了 详细 的 注释 ， 不 再 有 代码 
说 明 。 具 体 代码 如 下 : 


< 条 
"连接 数据 库 
Set Conn=Server.Createobject ("Adodb.Connection") 
Conn.Connectionstring="Provider=Microsoft.Jet.OLEDB.4.0;"& 
"Data Source="&Server.MapPath ("user.mdb") 
Conn.Oopen 
' 获 取 满 足 条 件 的 记录 数目 
Sql="Select count (*) As RecordCount from LayerST" 
Set rs=Conn.Execute(Sql) 
Dim nPageSize,nPageCount,nCursePos, nCount 
nCount=rs ("RecordCount") 
"设置 每 页 的 记录 数目 
nPageSize=2 
"获取 总 页 数 
nPageCount=Int ( (nCount/nPageSize)*(-1))*(-1) 
nPageNo=CInt (Request .Querystring ("page")) 
"确保 页 码 在 页 数 范围 之 内 
If nPageNo<1 Then 
nPageNo=1 
ElseIf nPageNo>nPageCount Then 
nPageNo=nPageCount 
End If 
' 获 取 游 标 位 置 
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IE Request.Querystring ("CurseID")="" Then 

nCursePos=0 
Else 

nCursePos=Clng (Request .Querystring ("CurseID")) 
End If 
"获取 类 型 
If Request.QueryString ("Type")="" Then 

strType="next" 
Else 

strType=Request .QuerySstring ("Type") 
End If 
"依据 前 一 页 还 是 下 一 页 的 查询 类 型 设置 查询 语句 
If strType="next" Then 

Sql="Select Top "&nPageSize&g" ID,Content,Title,Layer From LayerST where 
ID>"&nCursePos 
Else 

Sql="Select Top "gnPageSizeg" ID,Content,Title, Layer From LayerST where ID 
IN"g 

" (Select Top "gnPageSizeg" ID From LayerST where ID<"gnCursePosg& 
™ order by ID DESC) order by ID " 


End IF 

$%> 

<p align="center"><font face=" 华 文 行 楷 "” size="6" color="#0000FF"> 分 页 显示 
</font></p> 


<div align="center"> 
<table width="200" border="1" > 
-E> 
<td align="center"> 标 题 </td> 
<td align="center"> 内 容 </td> 
<td align="center"> 代 码 </td> 
</tr> 


< 多 
"nCurseStart 表示 当前 页 记录 第 一 条 记录 序号 
"nCurseEnd 表示 当前 页 记录 最 后 一 条 记录 序号 
Dim nCursestart, nCurseEnd 
"执行 查询 语句 
Set rs= Conn.Execute (Sql) 
' 输 出 记录 内 容 
For 1i=1 to nPageSize 
"记录 结束 需要 退出 循环 
If rs.EOF Then Exit For 
IE i=1 Then nCursestart=rs.Fields ("ID") 
"输出 记录 数目 
Response.Write("<TR><td>"grs.Fields ("Title")&"</td><td>"&rs.Fields ("ID" 
)&g"</td><td>"grs.Fields ("Layer")&"</td></tr>") 
nCurseEnd=rs .Fields ("ID") 
rs.movenext 


IAA 





开发 (第 2 版 ) 


Next 

"输出 表格 结束 符号 

Response.Write("</table> ") 

"关闭 数据 库 连接 

Conn.Close 

"设置 "前 一 页 "链接 

If nPageNo=1 Then 
Response.Write (" 首 页 ") 

El1seIf nPageNo>1 Then 
Response.Write ("<a 

href=indexl.asp?type=beforegpage="&nPageNo-1l&"&CurseID="&nCurseStart&"> 前 一 

页 </a>") 

End If 

"设置 "后 一 页 "链接 

If nPageNo=nPageCount Then 
Response.Write (" 尾 页 ") 

ElseIf nPageNo<nPageCount Then 
Response .Write ("<a 

href=indexl .asp?type=next&page="&nPageNo+1lg"&CurseID="&nCurseEndg"> 下 一 页 

</a>") 

End If 

Response.Write(" </div>") 

和 > 


11.6 投票 模块 


下 面 介绍 一 个 网 上 投票 系统 。 该 系统 除了 投票 和 查看 投票 结果 功能 外 ， 还 提供 了 增加 、 修 
改 和 删除 投票 项 目的 功能 。 


11.6.1 投票 原理 分 析 


这 个 系统 包括 投票 显示 模块 、 投 票 管理 模块 和 投票 结果 统计 模块 。 管 理 员 可 以 创建 投票 。 
创建 的 投票 项 目 存在 于 数据 表 VoteItem 中 。 数 据 表 VoteItem 的 结构 如 表 11-12 所 示 。 为 了 防 
止 用 户 重复 投票 ， 系 统 需 要 记录 投票 用 户 的 瑟 地址， 防止 同一 个 他 地 址 进行 重复 投票 。 记 录 
卫 地 址 的 表 为 表 VoteIP， 表 VoteIP 的 结构 如 表 11-13 所 示 。 














表 11-12 数据 表 Voteltem 的 结构 


字段 名 称 
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表 11-13 表 VotelP 的 结构 
字段 名 称 
投票 者 亿 地 址 








11.6.2 ”创建 投票 


本 模块 可 以 创建 、 修 改 和 删除 投票 项 目 ， 但 是 没有 设计 用 户 权限 的 部 分 。 读 者 可 以 参考 用 
户 权限 模块 代码 ， 增 加 该 部 分 功能 。 在 线 投票 管理 界面 如 图 11-15 所 示 。 








GO [oemos 9efv[ :|@ 
全 收 若 ”手机 收藏 赤 ， 芯 扩 展 - 口 同 扇 钳 式 局 症 泽 ” 避 其 玫 - 
了 在线 投标 系统 x |: 
在 线 投票 管理 界面 



































由 QE 同 榴 点 新 闻 加 区 生 万 加 寻 咕 二 下 载 下 后 口 号 110% 


图 11-15 ”在线 投 票 管理 界面 
1. 获取 投票 项 目 


所 有 的 投票 项 目 保存 在 数据 库 表 VoteItem 中 ， 因 此 需要 连接 数据 库 。 连 接 数据 库 的 方法 
在 这 里 不 再 介绍 。 下 面 是 读 取 数据 库 中 的 投票 项 目的 代码 : 

< 竺 

Set rs=Server.Createobject ("Adodb.Recordset") 

"设置 查询 投票 项 目的 SQL 语句 

Sql="Select * from VoteItem where IsDisp='17'" 

rs.Open Sql,Conn,l1,l1 

' 输 出 所 有 的 投票 项 目 

do while rs.EOF=False 

str="<tr><td width='30%'>"&rs("Item")&"</td>"& 
"<td width='25%' align='center'>"g"<a 

href="'modify.asp?ID="&rs ("ID") &"&action=modify'> 修 改 </a></td>"& 
"<td width='25%' align='center'><a 

href='modify.asp?ID="&rs ("ID") &g"&action=del'> 删 除 </a></td></tr>" 

' 显 示 投票 项 目 

Response.write (str) 

rs.movenext 

loop 

名 > 
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代码 说 明 如 下 。 
(1) 负责 修改 和 删除 项 目的 文件 是 modify.asp。 
(2) 参数 ID 表示 项 目 在 数据 库 中 的 序号 ，action 表示 执行 的 动作 ， 动 作 说 明 如 表 11-14 














所 示 。 
表 11-14 action 值 的 说 明 
action 值 值 的 含义 
add | 添加 项 目 ( 单 击 “ 增 加 项 目 ”按钮 时 产生 ) 
i | 修改 项 目 ( 单 击 “ 修 改 ”链接 时 产生 ) 
lete 删除 项 目 ( 单 击 “ 删 除 ”链接 时 产生 ) 


2. 增加 投票 项 目 
单 击 “ 增 加 项 目 ” 按 钮 ， 可 以 增加 新 的 投票 项 目 。 界 面 代码 如 下 : 


<form method=post action="modify 1.asp?action=add"> 
<table border=0 width="60%" > 
<tr> 
<td width="49%" valign="middle" align="left" bordercolor="#000000"> 投 票 项 
目 : </td> 
<td width="69%" valign="middle" align="left" bordercolor="#000000"> 
<input type="text" name="Content" size="22"> 





</td> 
<td> <input type="submit" name="T2" value=' 增 加 项 目 ' size="28" ></td> 
</tr> 
</table> 
</form> 
增加 项 目的 代码 如 下 : 
<% 
"获取 参数 值 
Rction=Request.QueryString("action") "用 户 执行 的 操作 
strID=Request .Querystring ("ID") ' 投 票 项 目的 序号 
"获取 增加 项 目的 内 容 


strCcontent=Request.Form("Content") 
Set Conn=Server.Createobject ("Adodb.Connection") 
Conn.Connectionstring="Provider=Microsoft .Jet.OLEDB.4.0;"& 
"Data Source="&Server.MapPath ("vote.mdb") 

Conn.Open 
"依据 用 户 的 操作 进行 相应 的 处 理 
If Action="add" Then 

Sql="insert into VoteItem(Item) values('"&strContentg"')" 
"插入 新 项 目 

Conn .Execute (Sql) 

Conn .Cl1ose 

Response.write (strContent&" 项 目 添加 成 功 ") 
End If 
各 > 


“NNN 
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3. 修改 投票 项 目 


单 击 “修改 ”链接 ， 可 以 修改 投票 项 目 内容 。 该 部 分 连接 数据 库 部 分 代码 省 略 ， 其 他 代码 
如 下 : 


< 
"判断 当前 操作 是 否 为 修改 操作 
IF Action="modify" Then 





Sql="update VoteItem set [Item]='"&strContentg"' where ID="&strID 


Conn .Execute (Sql1) 

Response.write (strContentg&" 项 目 修改 成 功 ") 
End If 

$> 


4. 删除 投票 项 目 
单 击 “删除 ”链接 ， 可 以 删除 投票 项 目 内 容 。 该 部 分 代码 如 下 : 


<% 

"判断 当前 操作 是 否 删除 操作 

If Action="del" Then 

Sql="delete from VoteItem where ID="&RctionID 
Conn.Execute (Sql) 

Response.write ("项 目 成 功 删 除 ") 

End If 

%> 


.6.3 ”投票 页 面 实现 


投票 页 面 如 图 11-16 所 示 。 在 该 界面 中 ， 可 以 投票 和 查看 投票 结果 。 
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11-16 ”在 线 投票 页 面 
(1) 读 取 投 票 项 目 。 
投票 页 面 需要 读 取 所 有 的 投票 项 目 ， 并 输出 到 网 页 中 。 代 码 如 下 : 
< 要 
"连接 数据 库 
Set Conn=Server.Createobject ("Adodb.Connection") 
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Conn.Connectionstring="Provider=Microsoft.Jet.OLEDB.4.0;"& 
"Data Source="&Server.MapPath ("vote.mdb") 
Conn .Open 
Set rs=Server.Createobject ("Adodb.Recordset") 
' 读 取 所 有 可 以 显示 的 项 目 。 项 目 是 否 可 以 显示 由 字段 IsDisp 标识 
Sql="Select * from VoteItem where IsDisp="'1'" 
rs.Open Sql,Conn,1l,1 
"处 理 所 有 的 项 目 
do while rs.EOF=False 
"输出 所 有 记录 
Response.write("<tr><td>") 
"输出 多 选 杠 
Response.write("<input TYpe='CHECKBOX' NAME='checkbox' "& 
"VALUE='"&rSs ("Item")&" ">"&rs ("Item") ) 
Response.write("</td></tr>") 
rs.movenext ' 读 取 下 一 行 
loop 
$%> 


(2) 增加 “查看 投票 结果 ”按钮 。 代 码 如 下 : 


<input type="BUTTON" name="T2" value=' 查 看 投票 结果 ' size="28" 
OnClick="vbscript:Window.open 'result.asp',' self'" > 


(3) 更 新 投票 项 目的 投票 数 。 
用 户 投 票 后 ， 投 票 项 目的 数值 增加 1。 代 码 如 下 : 


< 条 

Set Conn=Server .Createobject ("Adodb.Connection") 

Conn .ConnectionString="Provider=Microsoft.Jet.OLEDB.4.07;"& 
"Data Source="&SerVer.MapPath ("vote.mdb") 

Conn .Open 

strVote=Split (Request.form("checkbox"),",") 

"对 所 选项 进行 更 新 

for each str in strVote 

str=trim(str) 

"更 新 SQL 语句 ，"[] "表示 括号 内 为 表 名 或 者 字段 名 

Sql="Update [VoteItem] Set [Count]=[Count]+1 where IsDisp='1' and Item='"& 


Str&nrnm 
Conn .Execute (Sql) 
next 


Response .write ("投票 成 功 <BR>") 

Response.write ("<a href='Result.asp'> 查 看 投票 结果 </a>") 
End IF 

务 > 


11.6.4 投票 结果 统计 


显示 投票 结果 的 文件 为 resultasp， 页 面 效果 如 图 11-17 所 示 。 可 以 看 到 ， 页 面 中 显示 了 得 
票数 ， 以 及 以 图 片 形 式 显示 的 得 票 百 分 比 。 
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图 11-17 在线 投 票 统计 结果 界面 
本 文件 最 重要 的 部 分 为 得 票 百分比 的 计算 。 该 段 代码 如 下 : 





< 要 
Set Conn=Server.Createobject ("Adodb.Connection") 


Conn.Connectionstring="Provider=Microsoft .Jet .OLEDB.4.0;"& 
"Data Source="&Server.MapPath ("vote.mdb") 

Conn.Open 

Set rs=Server.Createobject ("Adodb.Recordset") 

Sql="Select Sum(Count) As Total from VoteItem where IsDisp="'1'" 


"获取 所 有 投票 总 数 
Set rs=Conn.Execute (Sql) 
"投票 总 数 赋 给 变量 nTotal 
If rs.EOF=False Then nTotal=rs ("Total") 
Sql="Select * from VoteItem where IsDisp="'1'" 
' 获 取 投 票 项 目的 得 票数 
Set rs=Conn.Execute (Sql) 
Dim percent 
do while rs.EOF=False 
' 计 算 每 个 项 目的 得 票 百 分 比 
If nTotal=0 Then 
percent=0 
Else 
percent= (rs ("Count") /nTotal)*100 
"percent 保留 一 位 小 数 
percent=formatNumber (percent, 1) 
End If 
Response.write ("<tr>") 
Response.write ("<td>"grs ("Item")&"</td> ") 
Response.write("<td>"grs("Count")g&"</td> ") 
"输出 得 票 百分比 的 柱状 图 
Response.write ("<td><img src="'img/bar.gif' width='"&gpercent*2g"" 
height=20>" gpercentg"%</td></tr> ") 
rs.movenext 
loop 
End If 
各 > 
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11.6.5 ”重复 投票 检测 


为 了 防止 重复 投票 ， 本 例 记录 投票 用 户 的 瑟 地 址 ， 卫 将 被 记 入 数据 库 表 VoteIP 中 。 
判断 用 户 人 P 是 否 投 过 票 的 流程 如 下 。 
(1) 获取 用 户 人 P。 
(2) 查询 表 VoteIP。 
(3) 判断 是 否 有 该 地 ， 有 则 结束 ; 否则 插入 用 户 人 P。 
具体 的 实现 代码 如 下 : 
< 
Set Conn=Server.Createobject ("Adodb.Connection") 
Conn.Connectionstring="Provider=Microsoft.Jet.OLEDB.4.0;"& 
"Data Source="&Server.MapPath ("vote.mdb") 
Conn.open 
"获取 IP 地 址 
ip=Request ("REMOTE ADDR") 
Sql="Select * From VoteIP where IP='"&ip&"'n 
Set rs=Conn.Execute(sql) 
' 检 查 该 IP 是 否 投 过 票 
Tf rs-EOF=False Then 
' 有 该 IP 地 址 ， 表 明 是 重复 投票 
Response.write ("该 IP 地 址 已 经 投票 过 ， 请 勿 重复 投票 ") 
Else 
"该 IP 地 址 没有 投票 记录 ， 把 该 IP 插入 表 VoteIP 
Sql="Insert Into VoteIP(IP) Values ('"&ip&"n')m 


Conn .Execute (Sql1) 
"更 新 投票 数据 


End If 


$%> 


11.7 ”搜索 引擎 模块 


这 里 所 指 的 搜索 引擎 并 不 是 像 百 度 (www.baidu.com) 或 Google 等 搜索 引擎 ， 而 是 指 站 内 搜 
索 。 站 内 搜索 是 绝 大 多 数 网 站 提供 的 功能 ， 可 以 帮助 用 户 方便 、 快 捷 地 从 网 站 服务 器 端 上 ， 找 
到 包含 关键 字 的 网 页 或 者 文件 。 

下 面 介绍 具有 上 述 搜索 功能 的 模块 设计 和 实现 。 该 搜索 模块 主要 包括 界面 的 设计 与 实现 、 
功能 的 设计 与 实现 。 


11.7.1 搜索 原理 分 析 


本 节 设 计 的 搜索 引擎 模块 ， 是 指 从 后 台数 据 库 中 搜索 用 户 感 兴趣 的 数据 、 信 息 ， 然 后 以 合 
适 的 形式 显示 给 用 户 。 本 实例 的 界面 如 图 11-18 所 示 。 
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本 例 提供 了 3 种 查询 方式 : 指定 字段 、 输 入 数据 和 在 结果 中 查询 。 通 过 在 结果 中 查询 这 一 


方式 ， 可 以 实现 复杂 的 搜索 。 另 外 ， 在 搜索 值 不 确定 的 情况 下 ， 用 户 也 可 以 进行 模糊 搜索 ， 如 
图 11-19 所 示 。 
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11-18 ”搜索 界面 图 11-19 ”模糊 搜索 
本 模块 的 搜索 原理 比较 简单 。 在 获取 用 户 指定 的 字段 、 输 入 的 内 容 以 及 查询 类 型 后 ， 把 这 
些 数 据 组 合成 SQL 查询 语句 ,然后 搜索 数据 库 指定 的 表 。 本 例 仅 以 搜索 数据 表 Book_Info 为 例 。 
表 Book_Info 的 结构 如 表 11-15 所 示 。 


表 11-15 表 Book_lInfo 的 结构 


字段 名 称 说 明 
ID 关键 字段 
Name 书 的 名 称 
ISDN 书 的 ISDN 
Cost 书 的 价格 
Pub 出 版 社 
Author 作者 
Data 出 版 日 期 





11.7.2 ”搜索 界面 实现 


本 站 内 容 搜索 的 界面 文件 和 搜索 文件 为 同一 文件 。 界 面 的 实现 代码 如 下 : 
<!--- 建 立 表 单 ---!> 


<form method="POST" action="search.asp"> 

<p align="center"><font face=" 华 文 行 楷 " size="6" color="#0000FF"> 搜 索 模 块 
</font></p> 

<p align="center"><font face=" 华 文 行 楷 " color="#0000FF"> 在 字段 
</font><select size="]1" name="Field"> 

' 显 示 表 的 字段 
< 
"Session ("prev search") 保 存 前 一 次 搜索 字段 和 搜索 值 
"Session ("prev_search") 初始 值 为 空 

If ISEmpty( Session ("prev_search")) Then 
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Session("prev search")="" 
End If 
' 连 接 数 据 库 
Set Conn=Server.CreateObject ("ADODB .Connection") 
Conn.Connectionstring="Provider=Microsoft.Jet.OLEDB.4.0;"& 
"Data Source="&Server.MapPath ("book.mdb") 
Conn.Open 
"查询 表 Book Info 
Sql="select * from Book Info™ 
set rs=Conn.Execute(Sql) 
"判断 是 否 有 记录 
If rs.EOF=false Then 
"输出 该 表 所 有 字段 和 字段 类 型 
'rs.Fields.Count 表示 表 的 字段 数目 
For i=0 To rs.Fields.Count-1 
'rs.Fields (i) .Name 表示 表 的 字段 名 称 
"rs.Fields (i) .type 表示 字段 的 类 型 
Response.write("<option value='m& 
rs.Fields (1I) .Nameg", "grs.Fields (i) .typeg&"'>"g&rs.Fields (i) .Name&"</option>") 
Next 
End If 
$> 
</select><font face=" 华 文 行 档 ” color="#0000FF"> 搜 索 </font> 
<input type="text" name="Content" size="16"> 
<select size="1" name="Type"> 
<option selected value="MH"> 模 糊 </option> 
<option value="JQ"> 精 确 </option> 
<option value="DY"> 大 于 </option> 
<option value="XY"> 小 于 </option> 
<option value="NOT"> 不 等 于 </option> 
</select><input type="submit" value=" 搜 索 " name="Bl"></p> 
<p align="center"><input type="radio" value="Reset" checked name="R1"> 重 
新 搜索 <input type="radio"” name="R1" value="Result"> 在 结果 中 查询 </p> 
</form> 


11.7.3 ”搜索 方法 实现 


根据 用 户 指定 字段 、 输 入 数据 或 上 次 查询 语句 进行 查询 ， 实 现 流 程 如 下 。 
(1) 判断 搜索 内 容 是 否 为 空 ， 为 空 则 停止 搜索 。 

(2) 获取 字段 名 称 和 类 型 。 

(3) 获取 搜索 类 型 。 

(4) 利用 字段 和 搜索 类 型 组 合 SQL 语句 。 

(5) 判断 是 否 在 结果 中 搜索 ， 是 则 SQL 语句 添加 上 次 搜索 语句 。 

(6) 进行 搜索 。 

实现 查询 和 输出 的 代码 如 下 : 


< 
"获取 用 户 查 询 的 内 容 


NN 


Content=trim(Request.Form("Content") ) 
"字段 为 空 则 不 进行 搜索 
IfE Content<>"" Then 
"获取 用 户 选 择 的 字段 名 称 和 字段 类 型 
"Fielad 控件 值 中 包含 字段 名 称 和 类 型 
Fields=trim(Request.EForm("Field")) 
"分 离 字段 名 称 和 类 型 
str=split (Fields, ",") 
Dim Field,VarType 
IE IsArray(str) Then 
' 字 段 名 称 
Field=str (0) 
"字段 类 型 
VarType=Cint (str (1)) 
End If 
"获取 查找 类 型 : 精确 还 是 模糊 查找 
LinkType=Request .Form("Type") 
' 判 断 查找 类 型 
If LinkType="MH" Then 
"设置 模糊 查找 
link="like" 
ElseIf LinkType="DY" Then 
"设置 大 于 条 件 
link=">" 
ElseIf LinkType="XY" Then 
"设置 小 于 条 件 
link="<" 
ElseIf LinkType="NOT" Then 
' 设 置 不 等 于 条 件 
link="<>" 
Else 
"设置 等 于 查找 
link="=" 
End If 
' 组 合 查 询 语句 
Sql="Select * from book Info " 
Dim SearchSql,bType 
bType=0 
If VarType=3 Then 
"字段 为 数字 类 型 
If IsSNumeric (Content) Then 
"Content 控件 的 值 为 数值 类 型 
SearchSql =Fieldg"="&gCInt (Content) 
Else 
"Content 不 为 数值 类 型 ， 不 能 进行 查询 
bType=1 
End If 
ElseIf VarType=202 Then 
"字段 类 型 为 字符 类 型 
SearchSql =Fieldg" "glinkg" '%"g&Contentg"%'™ 
ElselIf VarType=7 Then 
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"字段 类 型 为 日 期 类 型 
If IsDate (Content) Then 
"conent 控件 的 值 可 以 转换 成 日 期 类 型 
SearchSql =" datediff('d','"gContentg"',data)=0" 
Else 
"Content 控件 的 值 不 能 转换 成 日 期 类 型 ， 不 能 进行 查询 
bType=1 
End If 
End If 
' 可 以 进行 查询 
If bType=0 Then 
Result=Request .Form("R1") 
"判断 是 在 结果 中 查询 还 是 重新 查询 
If Result="Result" and Session("prev search")<>"" Then 
"在 结果 中 查询 且 上 次 查询 条 件 不 能 为 空 
"使 用 上 次 查询 条 件 组 合 查 询 语 名 
Sql=Sql&Session ("prev search")&" and "gSearchsql 
Else 
"在 重新 搜索 时 ， 在 用 户 指定 的 条 件 前 加 上 where 关键 字 
SearchSsql=" where "& SearchSdql 
Sql=Sql&Searchsql 
End If 
' 设 置 Session ("prev_search") 
Session("prev search")=Searchsql 
"设置 查询 排序 条 件 
Sql=Sql&" order by ID" 
Set Conn=Server.CreateObject ("ADODB.Connection") 
Conn .ConnectionString="Provider=Microsoft.Jet.OLEDB.4.07"& 
"Data Source="&SerVer.MapPath ("book.mdb") 
Conn .open 
set rs=Conn.Execute (Sql) 
Response.write("<table align=center> ") 


Response.write("<tr><td ><font face=' 华 文 行 楷 ' color='#0000FF'> 查 询 结 
果 </font></td></tr>") 


Dim nCount 
nCount=0 
Do while rs.EOF=false 
"输出 查询 结果 
Response.write(" <tr><td>"grs ("Name")&"</td></tr>") 
rs.movenext 
nCount=nCount+1 
loop 
If nCount=0 Then 


Response.write ("<tr><td ><font face=' 华 文 行 楷 ' color='#FF0000'> 暂 无 查 
询 结果 </font></td></tr>") 


End If 
Response.write("</table> ") 
End If 
End If 
各 > 
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11.7.4 ”数据 库 搜索 优化 


本 节 介 绍 的 搜索 引擎 只 是 在 记录 较 少 的 数据 库 中 进行 搜索 查找 。 如 果 对 记录 量 较 大 的 数据 
库 进行 查询 ， 会 耗费 大 量 时 间 ， 因 此 需要 对 数据 库 搜索 语句 进行 优化 。 

(1) 需要 哪些 字段 就 获取 哪些 字段 ， 避 免 使 用 “Select* ”。 

本 实例 中 的 查询 语句 : 

Sql="Select * from book Info " 

列 出 了 表 中 的 所 有 字段 ， 这 需要 耗费 大 量 的 时 间 和 资源 。 通 过 分 析 ， 每 次 查询 时 ， 使 用 的 字段 
只 有 字段 ID 和 用 户 查 询 的 字段 ， 因 此 对 该 查询 语句 做 如 下 优化 : 

Sql="Select ID,"g&Fieldg * from book Info " 

(2) 对 查询 条 件 ， 尽 量 少 使 用 函数 、NOT 和 <> 等 逻辑 表达 式 。 

例如 ， 查 询 书 的 价格 小 于 40 的 书 ， 设 置 查询 条 件 为 如 下 形式 : 

Sql="Select ID,cost * from book Info where Cost>40" 

而 不 要 用 下 面 的 表达 形式 : 

Sql="Select ID,cost * from book Info where Cost-40>0" 

后 面 的 这 种 形式 在 查询 时 ， 会 浪费 一 定 的 时 间 进 行 计 算 。 另 外 ， 在 设置 查询 条 件 时 ， 比 较 
双方 的 数据 类 型 应 该 一 致 ， 否则， 系统 在 查询 时 ， 会 浪费 时 间 进 行 数据 类 型 转换 ， 这 样 也 延长 
了 查询 时 间 。 

(3) 尽量 少 使 用 like 关键 字 支 持 的 匹配 通配符 “%” 和 “_”。 

在 本 实例 中 ， 模 糊 查 找 使 用 了 like 匹配 通配符 “%”。 这 种 使 用 匹配 符 的 方法 特别 浪费 时 
间 ， 应 该 对 其 进行 优化 。 对 于 本 例 中 的 SQL 语句 : 

SearchSql =Fieldg" "glinkég&" '%"g&Contentg"%®'™" 
可 以 对 搜索 进行 限制 和 修改 ， 尽 量 不 在 变量 Content 前 使 用 通配符 “%”， 因 为 这 样 搜索 会 浪 
费 大 量 时 间 。 

对 于 通配符 “_ ”， 可 以 使 用 蔡 代 方法 。 例 如 下 面 的 SQL 语句 : 

SELECT * FROM Book Info WHERE Cost LIKE "4 _" 
可 以 改 为 : 


SELECT * FROM Book Info WHERE Cost>="40" 
11.8 小 结 


本 章 对 网 站 建设 中 常 有 的 几 个 模块 进行 了 介绍 ， 详 细 说 明了 每 个 模块 的 实现 方法 。 这 对 读 
者 建设 网 站 有 一 定 的 帮助 。 这 些 模块 实现 了 比较 通用 的 功能 ， 在 使 用 的 过 程 中 ， 需 要 结合 实际 
进行 增加 和 修改 ， 以 适应 网 站 建设 的 需要 。 另 外 ， 某 些 模块 的 代码 还 需要 完善 。 例 如 ， 登 录 模 


块 的 代码 就 存在 安全 问题 ， 需 要 加 以 解决 。 
M/k 


第 12 章 论 坛 


内 容 摘要 | 

本 章 讲解 论坛 (BBS) 的 制作 。 本 论坛 的 功能 比较 简单 ， 没 有 设置 用 户 的 注册 、 登 录 ， 因 为 
各 种 注册 和 登录 的 制作 基本 相同 ， 在 其 他 章节 已 经 有 所 介绍 ， 本 章 就 省 略 了 此 功能 。 本 论坛 实 
现 了 管理 员 登 录 和 管理 员 账 号 的 管理 ， 帖 子 的 管理 ， 发 表 主题 ， 浏 览 主题 ， 回 复 主题 ， 按 主题 
进行 搜索 功能 。 本 章 详细 讲解 了 论坛 的 系统 分 析 和 总 体 设计 ， 各 个 模块 的 制作 方法 ， 使 用 
Dreamweaver 作为 开发 工具 ， 采 用 ASP 和 Access 技术 实现 。 


了 学 习 目 标 |ouecuv。 





@ BBS 系统 的 模块 设计 。 
@ Dreamweaver 中 数据 库 表 和 字段 的 灵活 使 用 。 
@ ”帖子 主题 的 发 表 、 回 复 与 管理 。 


12.1 ”系统 分 析 与 总 体 设计 


论坛 出 现 的 时 间 较 早 ， 一 般 是 作为 大 型 网 站 的 一 个 模块 存在 ， 发 展 至 今 ， 论 坛 的 功能 越 来 
越 丰富 ， 出 现 了 很 多 大 型 的 论坛 网 站 。 本 章 介 绍 的 论坛 是 典型 的 论坛 ， 包括 常见 的 功能 ， 并 没 
有 包含 其 他 附加 功能 。 这 些 功 能 包括 发 表 并 显示 帖子 ， 回 复 并 显示 回复 信息 。 管 理 模块 包括 注 
册 和 登录 模块 ， 以 及 帖子 管理 模块 。 

在 使 用 Dreamweaver 进行 论坛 模块 的 设计 之 前 ， 我 们 的 首要 工作 是 对 论坛 做 系统 的 规划 ， 
规划 的 工作 包括 论坛 的 功能 模块 的 确定 、 各 网 页 的 布局 、 数 据 库 的 设计 。 


12.1.1 功能 介绍 


读者 是 非常 熟悉 BBS 的 ， 绝 大 多 数 网 站 设 有 本 网 站 的 论坛 ， 论 坛 在 这 时 是 整个 网 站 的 一 
个 部 分 ， 属 于 网 站 的 辅助 部 分 。 随 着 因特网 的 发 展 ， 论 坛 逐渐 发 展 壮大 ， 出 现 了 专业 的 论坛 网 
站 ， 论 坛 在 这 时 是 一 个 完整 的 网 站 。 后 者 在 规模 上 显然 比 前 者 要 复杂 得 多 ， 功 能 也 丰富 得 多 。 
本 章 是 要 实现 一 个 典型 的 论坛 的 基本 功能 ， 实 际 上 更 接近 于 前 者 。 它 在 规模 上 比较 小 ， 但 是 具 
有 论坛 的 基本 功能 。 

论坛 系统 的 基本 功能 包括 注册 与 登录 模块 ， 帖 子 的 发 表 与 显示 ， 论 坛 的 管理 模块 。 本 章 省 
略 了 用 户 的 注册 与 登录 。 


1. 发 表 帖 子 
用 户 不 需要 注册 和 登录 就 可 以 发 表 帖子 ， 发 表 帖 子 的 页 面包 括 发 表 人 ID、 帖 子 主题 、 电 
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子 邮件 、 主 页 地 址 、 用 户头 像 、 帖 子 内 容 。 提 交 帖 子 就 将 相应 的 元 素 插入 相应 的 数据 表 字 段 ， 
帖子 的 主题 就 会 显示 在 首页 的 帖子 列表 中 。 


2. 显示 帖子 


在 显示 的 帖子 列表 中 设置 了 超 链接 ， 在 显示 页 面 显示 帖子 的 详细 信息 ， 包 括 发 表 人 姓名 、 
发 表 人 主页 、 发 表 人 邮箱 、 帖 子 详细 信息 、 帖 子 发 表 的 时 间 。 同 时 ， 显 示 所 有 回复 的 主题 信息 ， 
包括 回复 人 姓名 、 回 复 人 主页 、 回 复 人 邮箱 、 回 复 的 主题 标题 、 回 复 的 详细 信息 和 回复 发 表 的 
时 间 。 

3. 论坛 管理 

论坛 管理 包括 管理 员 登 录 和 管理 账号 以 及 管理 帖子 。 只 有 管理 员 登 录 成 功 后 才 可 以 对 账号 
和 帖子 进行 管理 。 

管理 员 登 录 验 证 的 设计 与 其 他 模块 的 登录 验证 相同 , 验证 用 户 名 和 密码 与 数据 库 中 的 用 户 
名 和 密码 是 否 相同 即 可 。 

账号 的 管理 包括 添加 新 的 用 户 名 和 密码 ， 修 改 或 者 删除 数据 库 中 已 存 的 用 户 名 和 密码 。 

帖子 的 管理 是 实现 对 用 户 发 表 的 帖子 的 各 个 元 素 的 更 改 ， 或 者 删除 操作 ; 同时 ， 对 帖子 的 
回复 信息 也 要 实现 更 改 和 删除 操作 。 


12.1.2 ”总体 布局 


论坛 系统 包括 帖子 的 发 表 、 帖 子 的 显示 、 帖 子 搜索 、 论 坛 管理 4 个 主要 部 分 。 其 中 帖子 的 
显示 又 包括 帖子 内 容 的 显示 、 帖 子 的 回复 内 容 显示 和 回复 帖子 的 功能 。 论 坛 的 管理 是 比较 重要 
的 部 分 ， 包 括 管理 员 登 录 ， 管 理 员 账 号 的 添加 、 修 改 和 删除 ， 帖 子 的 管理 包含 帖子 和 回复 内 容 
的 显示 、 帖 子 的 修改 、 帖 子 和 回复 内 容 的 删除 。 

本 章 论坛 系统 的 总 体 布局 如 图 12-1 所 示 。 














帖子 搜索 帖子 显示 


















修改 管理 员 账 号 











图 12-1 系统 的 总 体 布局 
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12.1.3 数据库 结构 及 实现 

论坛 中 帖子 的 发 表 、 显 示 、 搜 索 、 论 坛 的 管理 都 涉及 数据 库 的 操作 。 本 系统 涉及 的 数据 库 
包括 3 个 数据 表 : passadmin、postMain、PpostRe。 下 面 分 别 介绍 这 3 个 数据 表 的 创建 。 

1. 创建 数据 库 

启动 Access， 新 建 空 数据 库 文件 ， 命 名 为 forum.mdb。 

2. passadmin 数据 表 

创建 一 个 新 表 ， 命 名 为 passadmin， 该 数据 表 存储 系统 管理 员 信息 ， 包 括 管理 员 的 登录 名 
和 密码 。 它 的 设计 视图 如 图 12-2 所 示 。 

该 表 包 含 两 个 字段 ，usmame 字段 保存 管理 员 账 号 ，passwd 字段 保存 管理 员 账 号 对 应 的 密 
码 ， 两 个 字段 的 类 型 均 为 文本 类 型 。 

3. postMain 数据 表 

创建 新 表 ， 命 名 为 postMain， 它 的 设计 视图 如 图 12-3 所 示 。 














于 县 名 称 _ 数 反共 型 说 明 FE 
忆 动 编导 讨论 区 主 帖 子 蝙 叶 
文本 论 区 主 帖子 羽 斋 
文本 讨论 区 主 帖 子 标题 
文本 过 伦 区 主 帖子 赛 情 图 广 件 名 
各 注 讨论 区 主 帖 子 内 容 
日 JR 时间 讨论 区 主 帖子 时 间 
立 本 讨论 区 主 帖 子 留 至 人 姓名 
文本 讨 花 区 主 帖子 入 至 人 邮件 
文本 讨 花 区 主 帖子 留 育 人 网 站 
六 字 讨 论 区 主 帖子 吉 击 次数 
12-2 表 passadmin 的 设计 视图 图 12-3 表 postMain 的 设计 视图 


该 数据 表 存 储 用 户 发 表 帖子 的 相关 信息 。 数 据 表 中 各 字段 的 说 明 如 下 。 

(D main id 字段 : 保存 帖子 的 编号 ， 类 型 为 自动 编号 。 当 插入 一 条 新 的 记录 时 ， 该 字段 
紧 接 前 一 条 记录 以 升序 自动 编号 。 

(2) main important 字段 : 保存 帖子 的 状态 的 图 片 路 径 信息 ， 类 型 为 文本 。 状 态 有 3 种 : 
普通 、 热 点 、 精 华 ， 分 别 用 不 同 的 图 标 显示 出 来 ， 方 便 用 户 分 辩 。 

(3) main subject 字段 : 保存 帖子 的 标题 ， 类 型 为 文本 。 这 是 帖子 很 重要 的 字段 ， 在 显示 
帖子 时 ， 也 是 必 不 可 少 的 。 

(4) main face 字段 : 保存 用 户 发 帖 时 选择 的 表情 图 片 路 径 信息 ， 类 型 为 文本 。 本 系统 共 
为 用 户 设计 了 20 种 表情 。 

(5) main_content 字段 : 保存 用 户 发 表 的 帖子 的 内 容 。 这 是 帖子 最 重要 的 部 分 ， 类 型 为 备 
注 。 由 于 帖子 的 内 容 文本 可 能 较 长 ， 文 本 类 型 的 字段 长 度 不 够 ， 所 以 使 用 备注 类 型 。 

(6) main time 字段 : 保存 帖子 发 表 的 时 间 ,， 该 时 间 为 服务 器 上 的 时 间 ， 类 型 为 日 期 /时 间 。 

(7) main_name 字段: 保存 帖子 发 表 人 的 姓名 ， 类 型 为 文本 。 

(8) main email 字段 : 保存 帖子 发 表 人 的 电子 邮件 ， 类 型 为 文本 。 

(9) main_url 字段 : 保存 帖子 发 表 人 的 个 人 网 站 网 址 ， 类 型 为 文本 。 

(10) main hits 字段 : 保存 帖子 的 点 击 次 数 ， 类 型 为 数字 。 使 用 该 字段 可 以 为 管理 员 确 定 热 
点 的 帖子 ， 方 便 对 帖子 进行 筛选 和 置顶 。 


NN 





4. postRe 数据 表 
创建 新 表 ， 命 名 为 postRe， 它 的 设计 视图 如 图 12-4 所 示 。 





| <| 
自动 编号 时 论 区 回复 编 号 时 
让 
文本 讨论 区 回复 标题 
讨论 区 回复 表情 图 文件 名 
广 讨论 区 回复 内 容 
日 期 /时 间 讨论 区 辐 复 时 间 
本 讨论 区 回复 留言 
文本 讨论 区 回复 留言 人 性 别 
文本 讨论 区 回复 留言 人 邮件 
文本 讨论 区 回复 留言 人 网 站 
文本 讨论 区 回复 








图 12-4 表 postRe 的 设计 视图 


该 数据 表 存 储 回复 的 相关 信息 。 数 据 表 中 各 字段 的 说 明 如 下 。 

(1) re id 字段 : 保存 帖子 回复 的 编号 ， 类 型 为 自动 编号 。 当 在 论坛 回复 一 条 帖子 时 系统 
在 该 表 插入 一 条 新 的 记录 ， 该 字段 紧 接 前 一 条 记录 以 升序 自动 编号 。 

(2) m id 字段 : 保存 用 户 回 复 针对 的 主 帖 子 编号 ， 类 型 为 数字 。 只 有 通过 这 个 字段 ， 系 
统 才能 定位 要 进行 回复 操作 的 帖子 ， 使 帖子 和 它 的 回复 对 应 起 来 。 该 字段 与 表 postMain 的 
main id 字段 一 致 。 

(3) re_subject 字段 : 保存 用 户 回复 帖子 时 的 回复 标题 ， 类 型 为 文本 。 

(4) re_face 字段 : 保存 用 户 回 复 帖子 时 选择 的 表情 图 片 路 径 信息 ， 类 型 为 文本 。 本 系统 共 
为 用 户 设 计 了 20 种 表情 。 

(5) re_content 字段 : 保存 用 户 回复 的 内 容 。 这 是 回复 中 最 重要 的 部 分 ， 由 于 回复 的 内 容 
文本 也 可 能 较 长 ， 所 以 同样 需要 使 用 备注 类 型 。 

(6) re_time 字段 : 保存 回复 发 表 的 时 间 ， 该 时 间 为 服务 器 上 的 时 间 ， 类 型 为 日 期 /时 间 。 

(7) re_name 字段 : 保存 回复 信息 发 表 人 的 姓名 ， 类 型 为 文本 。 

(8) re_sex 字段 : 保存 回复 发 表 人 的 性 别 ， 类 型 为 文本 。 

(9) re_email 字段 : 保存 回复 发 表 人 的 电子 邮件 ， 类 型 为 文本 。 

(10) re_url 字段 : 保存 回复 发 表 人 的 个 人 网 站 网 址 ， 类 型 为 文本 。 

(11) re_ip 字段 : 保存 回复 发 表 人 的 下 地址 ， 类 型 为 文本 。 

数据 库 创 建 完成 后 ,就 可 以 使 用 Dreamweaver 定义 数据 源 并 连接 数据 库 , 然后 进行 各 模块 
和 网 页 的 设计 制作 。 


12.2 模块 设计 


12.1 节 我 们 确定 了 论坛 的 功能 模块 ， 各 页 面 之 间 的 关系 ,数据 库 的 设计 ， 这 些 工作 是 前 期 
的 规划 设计 。 根 据 12.1 节 的 规划 ， 我 们 采用 Dreamweaver 作为 开发 工具 ， 使 用 ASP， 结 合 Access 
技术 实现 所 有 的 功能 模块 。 下 面 详细 讲解 各 模块 的 设计 制作 过 程 , 读者 跟随 操练 就 能 够 很 容易 实现 。 
12.2.1 首页 设计 


本 论坛 的 首页 为 mdex.asp， 它 的 浏览 效果 如 图 12-5 所 示 。 
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12-5 首页 效果 


从 图 12-5 中 可 以 看 出 ， 主 页 的 功能 用 于 显示 论坛 上 已 经 发 表 的 帖子 ， 以 及 其 他 模块 的 链 
接 。 在 主页 的 上 部 是 论坛 的 标识 和 主要 功能 模块 的 链接 ， 这 些 链接 包括 “论坛 首页 ” “管理 登 
录 ”“ 发 表 话 题 ”。 中 间 部 分 显示 已 经 发 表 的 帖子 ， 帖 子 显示 4 种 信息 ， 包 括 帖子 主题 、 作 者 、 
点 击 次 数 、 创 建 时 间 ， 在 帖子 主题 上 有 超 链接 ， 用 于 单 击 打开 显示 帖子 详细 内 容 的 网 页 ， 这 一 
部 分 的 右 下 角 放 置 了 两 个 导航 ， 用 于 翻 页 。 页 面 的 下 部 是 论坛 的 搜索 器 ， 用 于 根据 帖子 的 主题 
词 作 为 关键 词 进行 搜索 。 页 面 最 下 方 是 帖子 中 使 用 的 图 例 和 版 权 信息 。 

下 面 详细 讲解 本 页 面 的 制作 过 程 。 

(1) 在 Dreamweaver 中 设计 首页 需要 首先 建立 站 点 , 本 书 之 前 章节 已 经 详细 介绍 了 站 点 的 
建立 过 程 ， 这 里 不 再 袭 述 。 该 站 点 需要 使 用 到 数据 库 forum 中 的 表 postMain， 在 Dreamweaver 
的 “应 用 程序 ”下 的 “数据 库 ” 标签 中 , 单 击 加 号 ， 选 择 “ 数 据 源 名 称 DSN) ”命令 ， 如 图 12-6 
所 示 。 

弹出 “数据 源 名 称 (DSN)” 对 话 框 ， 在 “数据 源 名 称 ” 下 拉 列 表 框 中 选择 需要 的 数据 源 ， 
如 图 12-7 所 示 。 








数 括 源 名 称 (mS) | 
rd — we | 
本 了 应 用 程序 号 小 各 源 各 称 ci [SR 了 | 
sl 
| 二 | 文档 类 型 ASP Vhseript © ES 下 ax 
自 定义 连接 字符 囊 
9 Drewwesrer 应 连接 : 人” 使 用 测试 职务 器 上 的 DSN ey 
2。 选择 一 种 立 挡 类 型 ， Ss 
v ”3.、 设置 站 点 





的 测试 服务 器 。 
4. 单 击 上 面 的 + 按钮 所 障 连 接 。 
图 12-6 设置 数据 源 图 12-7 选择 数据 源 


如 果 数 据 源 不 存在 , 可 以 单 击 “ 定 义 ” 按 钮 ， 打开 “ODBC 数据 源 管理 器 ”对 话 框 , 在 “ 系 
统 DSN” 选 项 卡 中 单 击 “ 添 加 ”按钮 ， 添 加 系统 数据 源 ， 如 图 12-8 所 示 。 

添加 Microsoft Access 数据 源 ， 定 义 数 据 源 名 称 为 bbs， 并 选择 12.1 节 我 们 定义 的 数据 库 
文件 ， 如 图 12-9 所 示 。 
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图 12-8 添加 系统 DSN 数据 源 图 12-9 添加 Access 数据 库 
单 击 “ 确 定 ” 按 钮 ， 返 回 “ 数 据 源 名 称 (DSN)” 对 话 框 ， 定 义 连接 名 称 为 connection， 在 
“数据 源 名 称 (DSN)” 下 拉 列 表 框 中 选择 刚刚 创建 的 bbs 数据 源 ， 然 后 单 击 “测试 ”按钮 ， 弹 
出 如 图 12-10 所 示 的 信息 提示 框 ， 说 明 数 据 库 连 接 创建 成 功 。 


单 击 “ 确 定 ” 按 钮 , 在 “数据 库 ” 面 板 中 就 会 显示 添加 的 数据 库 连 接 connection, 如 图 12-11 
所 示 。 
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+ 一 | ed: hsr veseript ec 





图 12-10 ”定义 数据 库 连接 图 12-11 数据 库 连 接 
这 样 ， 使 用 Dreamweaver 就 可 以 操作 数据 库 了 。 
(2) 在 Dreamweaver 中 , 使 用 表格 和 预先 设计 好 的 图 片 等 素材 , 设计 主页 的 框架 和 显示 效 
果 ， 如 图 12-12 所 示 。 





渴 ASP+Dreamweaver 学 习 论 坛 
命 发 表 帖 子 








图 12-12 首页 的 设计 视图 
(3) 绑 定 记录 集 。 单 击 插入 工具 栏 中 的 “数据 ” 栏 ， 选 择 记录 集 按 钮 | 图， 设置 记录 集 





Recordset] 的 相关 选项 ， 如 图 12-13 所 示 。 
记录 集 绑 定 的 是 postMain 数据 表 ， 按照 main time 字段 进行 降序 排列 ， 这 样 能 将 最 新 发 表 
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的 帖子 显示 在 主页 的 最 上 面 。 




















图 12-13 设置 记录 集 


(4) 绑 定 数据 。 将 记录 和 集 Recordsetl 中 的 main_important 字段 绑 定 到 <img> 标 签 ， 代码 为 : 
<img src=<%=(Recordsetl .Fields.Item("main important").Value)%>>， 如 图 12-14 的 A 区 所 示 。 


i 帖子 主题 ee 创建 时 间 


i 
到 | 大 一 一 一 ED IfRecorasetl. nom nitd 
| {Recordset1. nain subject)| main subject] 





图 12-14” 绑 定数 据 


绑 定 main_subject 到 “帖子 主题 ”位 置 ， 如 图 12-14 的 B 区 所 示 ， 并 设置 它 为 动态 超 链接 ， 
选中 {Recordsetl.main_subject}， 在 工具 栏 的 “数据 ” 栏 中 单 击 “ 转 到 详细 信息 页 ”， 在 弹出 的 
对 话 框 中 设置 相关 参数 , 如 图 12-15 所 示 。 链接 到 的 详细 页 面 为 show.asp, 传递 URL 的 main id 
参数 , 对 应 Recordsetl 的 main id 字段 作为 参数 , 显示 对 应 的 一 条 记录 。 绑 定 main_name 到 “ 作 
者 ”位 置 ， 如 图 12-14 的 C 区 所 示 ; 绑 定 num hits 到 “ 单 击 次 数 ” 位 置 ， 如 图 12-14 的 D 区 
所 示 ; 绑 定 main_time 到 “创建 时 间 ” 位 置 ， 如 图 12-14 的 E 区 所 示 。 

(5) 设置 重复 区 域 。 绑 定数 据 后 ， 在 主页 上 显示 帖子 类 型 、 帖 子 主题 、 帖 子 的 作者 、 帖 子 
的 点 击 次 数 、 帖 子 的 创建 时 间 信 息 。 选 定 帖子 信息 显示 区 域 ， 单 击 “ 重 复 区 域 ”按钮 ， 设 置 重 
复 区 域 显示 为 两 条 记录 ， 如 图 12-16 所 示 。 
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图 12-15 ” 转 到 详细 页 面 图 12-16 “重复 区 域 ”对 话 框 


(6) 如 果 论 坛 中 还 没有 发 表 的 帖子 ,应 该 显示 没有 帖子 的 提示 信息 ,此 时 记录 集 Recordsetl 
中 没有 记录 。 选 中 “暂时 没有 帖子 ! ”文本 ， 在 插入 工具 栏 中 选择 “数据 ”选项 ， 选 择 “如 果 


一 人 NN 


国 
本. 
第 12 章 论坛 面 "= 
记录 集 为 空 则 显示 ”命令 ， 在 弹出 的 对 话 框 中 选择 记录 集 Recordsetl ， 如 图 12-17 所 示 。 


(7) 添加 导航 条 。 将 鼠标 放置 在 重复 区 域 的 右 下 方 的 表格 中 , 在 插入 工具 栏 中 选择 “数据 ” 
选项 , 单 击 “ 记 录 集 导航 条 ”按钮 , 在 弹出 的 “记录 和 集 导 航 条 ”对 话 框 中 选择 记录 集 Recordset]， 


设置 显示 方式 为 “文本 ”， 如 图 12-18 所 示 。 
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图 12-17 重复 区 域 对 话 框 图 12-18 添加 记录 集 导 航 条 


单 击 “ 确 定 ” 按钮， 则 在 重复 区 域 的 下 方 出 现 设置 的 导航 条 ,将 英文 的 文本 改 为 中 文 即 可 ， 


如 图 12-19 所 示 。 
创建 时 间 


点 击 次 数 


重复 作者 
加 果 罕 加 果 符合 .加 果 符 合 如 果 符合 此 
市 一 由 时 [一 由 县 下 一 由 柄 十 石 一 页 


如果 符 合 此 条 件 则 显示 








图 12-19 记录 集 导 航 条 设计 效果 
(8) 添加 超 链接 。 设 置 文本 “论坛 首页 ”的 链接 地 址 为 ndex.asp， 设 置 文本 “管理 登录 ” 
的 链接 地 址 为 admin index.asp， 设 置 图 片 “发 表 帖 子 ” 的 链接 地 址 为 add.asp。 


12.2.2 发表 帖子 
在 主页 上 图 片 “ 论 坛 发 帖 ”所 链接 的 是 发 表 帖 子 的 页 面 add.asp， 该 页 面 的 显示 效果 如 


图 12-20 所 示 。 
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12-20 ”发 表 帖 子 效果 
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在 该 页 面包 含 一 个 表单 ， 该 表单 包括 4 个 文本 框 ，1 个 下 拉 列 表 ，1 个 文本 区 域 ， 分 别 用 
于 输入 “发 表 人 ”“ 帖 子 主题 ”“ 电 子 邮 件 ”“ 主 页 地 址 ”“ 用 户头 像 ”“ 帖 子 内 容 ”。 用 户 
发 表 帖子 时 ， 在 该 页 面 的 表单 中 输入 或 选择 信息 ， 单 击 “ 提 交 ” 按 钮 ， 能 够 将 用 户 发 表 的 帖子 
信息 添加 到 数据 库 中 。 然 后 ， 在 主页 中 就 能 够 在 帖子 主题 显示 区 域 ， 显示 最 新 添加 的 帖子 ， 允 
许 其 他 用 户 浏览 帖子 或 浏览 并 同时 回复 帖子 。 

设计 过 程 如 下 。 

(1) 在 Dreamweaver 中 , 使 用 表格 和 预先 设计 好 的 图 片 等 素材 ,设计 发 表 帖 子 的 框架 和 显 
示 效 果 ， 如 图 12-21 所 示 。 

需要 说 明 的 是 ,用户 头像 设计 为 下 拉 列 表 ， 该 列表 的 上 方 动态 显示 选择 的 图 像 的 效果 。 制 
作 过 程 为 : 首先 在 网 页 中 选 定 插入 下 拉 列 表 的 位 置 ， 然 后 选择 插入 工具 栏 中 的 “表单 ” 栏 ， 单 
击 “ 列 表 /菜单 ”按钮 ， 在 弹出 的 “输入 标签 辅助 功能 属性 ”对 话 框 设 置 ID 为 face， 单 击 “ 
定 ”按钮 ， 如 图 12-22 所 示 。 
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图 12-21 发表 帖子 页 面 的 设计 视图 图 12-22 输入 标签 辅助 功能 属性 设置 


在 设计 视图 中 选中 插入 的 列表 ,Dreamweaver 自动 打开 列表 /菜单 属性 面板 ,在 该 面板 设置 
类 型 为 “列表 ”， 如 图 12-23 所 示 。 








国 列表 /菜单 类 型 个 菜单 高 度 1 [2 jj 类 ojsrms 本 
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12-23 ”列表 属性 


单 击 “ 列 表 值 ”按钮 ， 弹 出 “列表 值 ”对 话 框 ， 添 加 20 个 “项 目标 签 ”， 并 设置 它们 的 
值 ， 单 击 “ 确 定 ” 按 钮 ， 如 图 12-24 所 示 。 

切换 到 代码 窗口 ， 在 下 拉 菜 单 的 代码 处 ， 添 加 动态 显示 头像 的 代码 ， 即 设置 一 个 <img> 标 
签 显示 头像 ， 并 设置 下 拉 菜单 的 change 事件 处 理 程序 与 之 动态 对 应 。 代 码 如 下 : 

<img id="idface" src="images/01.gif" alt=" 个 人 形象 代表 " /><br /><! 一 设置 <img> 标 

签 的 id--> 

<select name="face" Size="1" 

onchange="document .images['"idface'] .src=options[selectedIndex] .value;" > 

<! 一 设置 下 拉 菜 单 的 change 事件 处 理 程序 --> 
<option selected="selected" value="images/01.gif"> 用 户头 像 -01 </option> 


NN 
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<option ee value="images/20.gif"> 用 户头 像 -20 </option> 
</select> 
(2) 插入 记录 。 单 击 插入 工具 栏 中 的 “数据 ” 栏 , 单 击 “ 插 入 记录 ”, 选中 连接 为 connection， 
插入 表格 为 postMain 表 ， 设 置 插入 后 转 到 index.asp， 从 页 面 的 forml 表单 获取 数据 ， 分 别 对 
应 postMain 表格 的 相应 字段 ， 如 图 12-25 所 示 。 


















生起 
才 助 外 
图 12-24 “列表 值 ” 对 话 框 图 12-25 “插入 记录 ”对 话 框 
单 击 “ 确 定 ” 按 钮 。 这 样 ， 当 单 击 “ 提 交 ” 按 钮 时 ， 就 能 够 将 页 面 表单 form1 的 各 元 素 插 


入 到 表格 记录 的 相应 字段 中 ， 从 而 实现 了 在 index.asp 页 面 中 显示 发 表 的 帖子 。 


12.2.3 ”浏览 帖子 和 回复 帖子 


在 首页 上 显示 了 发 表 的 帖子 主题 ， 并 且 该 帖子 主题 设置 为 超 链 接 ， 链 接 到 的 浏览 帖子 页 面 
为 show.asp， 该 页 面 的 显示 效果 如 图 12-26 所 示 。 

按照 图 12-26 所 示 的 效果 , 在 Dreamweaver 中 使 用 已 有 素材 图 片 、 文 本 和 表格 设计 该 页 
设计 视图 如 图 12-27 所 示 。 
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图 12-26 浏览 和 回复 帖子 页 面 效果 图 12-27 浏览 和 回复 帖子 页 面 的 设计 
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该 页 面 可 以 分 为 3 个 功能 区 : A 区 为 浏览 帖子 区 域 ，B 区 为 回复 帖子 区 域 ，C 区 为 回复 内 
容 显示 区 域 。 下 面 分 别 介绍 这 3 个 功能 区 的 实现 过 程 。 

1. 浏览 帖子 

浏览 帖子 功能 区 的 功能 是 显示 用 户 发 表 的 帖子 的 详细 信息 , 以便 用 户 针对 帖子 内 容 进 行 回 
复 ， 设 计 视 图 如 图 12-27 的 A 区 所 示 。 

操作 步骤 如 下 。 

(1) 绑 定 记录 集 。 在 制作 该 区 域 的 数据 显示 之 前 ， 需 要 首先 绑 定 记录 集 Recordset]l 。 
Recordsetl 使 用 connection 连接 ， 选 择 表格 为 postMain， 选 定 全 部 列 ， 筛 选 使 用 main id 字段 ， 
使 它 等 于 URL 传递 的 参数 main id， 如 图 12-28 所 示 。 

在 主页 的 “帖子 主题 ”的 绑 定 数据 {Recordsetl.main subject} 被 设置 为 超 链接 ， 链 接 到 
show.asp， 传 递 URL 的 main id 参数 。 

这 样 ， 通 过 首页 的 “帖子 主题 ” 超 链接 传递 的 main id 参数 ， 浏 览 帖子 的 页 面 绑 定 的 
Recordsetl 通过 这 个 main id 参数 筛选 出 数据 表 postMain 对 应 的 main id 字段 ， 从 而 确定 了 一 
条 记录 。 然 后 ， 我 们 可 以 绑 定 Recordsetl 的 数据 到 浏览 帖子 区 域 ， 就 可 以 实现 显示 浏览 帖子 
功能 。 




















图 12-28 Recordset1 的 设置 


(2) 绑 定 数据 。 在 浏览 帖子 区 域 绑 定 Recordsetl 的 num_hits、main_subject、main name、 
main_ time、main_ content 到 页 面 的 相应 位 置 ， 如 图 12-29 所 示 。 


你 代表 帖子 











12-29 ”浏览 帖子 区 域 数据 绑 定 


(G3) 设置 超 链接 。 图 中 图 片 “ 发 表 帖子 ”链接 到 addasp， 用 于 跳 转 到 用 户 发 表 帖子 页 面 ; 
图 片 “回复 帖子 ”链接 到 本 页 面 的 一 个 锚 点 ， 定 位 到 底部 的 回复 帖子 的 位 置 ， 即 图 12-27 的 C 
区 ， 图 片 超 链接 的 代码 如 下 : 


NNN 
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<a href="#point"><img src="images/newreply.gif" width="72" height="21" 
border="0"></a> 


C 区 的 锚 点 设置 代码 如 下 : 


<A name=point class="al"> 回 复 主题 : 
<%= (Recordset1.Fields.Item("main subject") .Value)s></R> 


在 “标题 ” 左 侧 ， 将 记录 集 Recordsetl 中 的 main_important 字段 绑 定 到 <img> 标 签 ， 代 码 
如 下 : 

<img src=<%=(Recordsetl.Fields.Item("main important") .Value)s>> 

用 于 显示 该 帖子 的 类 型 : 普通 、 精 华 、 热 点 。 

在 显示 main_name 数据 的 下 方 ， 显 示 用 户 的 头像 图 片 ， 绑 定 main_face 数据 到 <img> 标 签 ， 
代码 如 下 : 


<img src=<%=(Recordsetl.Fields.Item("main face") .Value)®%> width="100" 
height="100" > 


图 片 “ 主 页 ”链接 到 发 表 帖 子 的 用 户 的 个 人 主页 ， 代 码 如 下 : 

<a href=<%= (Recordsetl .Fields.Item("main Url") .Value)gs>><img 
src="images/homepage.gif" width="47" height="18" border="0" /></a> 
图 片 “ 邮 箱 ” 链 接 到 发 表 帖 子 的 用 户 的 个 人 电子 信箱 ， 代 码 如 下 : 


<a href=mailto:<%= (Recordsetl.Fields.Item("main email") .Value)%>><img 
src="images/email.gif" width="45" height="18" border="0" /></a> 


2. 回复 帖子 

在 show.asp 页 面 的 最 下 方 是 回复 帖子 功能 区 , 如 图 12-27 的 B 区 所 示 。 该 功能 区 与 发 表 帖 
子 模块 相似 ， 下 面 简单 讲解 制作 过 程 。 

(1) 绑 定数 据 。 将 Recordsetl 的 main_subject 字段 绑 定 到 回复 帖子 区 域 的 “回复 主题 ” 右 
侧 ， 如 图 12-30 所 示 。 


























图 12-30 回复 帖子 功能 区 设计 


(2) 插入 记录 。 单 击 插入 工具 栏 中 的 “数据 ? 栏 , 单 击 “ 插 入 记录 ”, 选中 连接 为 connection， 
插入 到 的 表格 为 postRe 表 ， 设 置 插入 后 转 到 show.asp， 从 页 面 的 fomml 表单 获取 数据 ， 分 别 对 
应 postRe 表格 的 相应 字段 ， 如 图 12-31 所 示 。 

单 击 “ 确 定 ” 按 钮 。 这 样 ， 当 单 击 “ 提 交 ” 按 钮 时 ， 就 能 够 将 页 面 表单 form1l 的 各 元 素 插 


入 到 表格 记录 的 相应 字段 中 ， 从 而 实现 了 回复 帖子 的 功能 。 
IANA 











12-31 “插入 记录 ”对 话 框 


3. 回复 内 容 显示 


回复 内 容 显示 功能 区 的 功能 是 在 浏览 帖子 区 域 下 方 显示 用 户 发 表 的 回复 内 容 的 详细 内 容 ， 
如 图 12-27 的 C 区 所 示 。 并 设置 该 区 域 为 重复 区 域 , 从 而 使 所 有 的 回复 信息 都 显示 出 来 。 当 然 ， 
可 以 设置 分 页 显示 ， 从 而 使 得 显示 更 具有 结构 性 。 

有 具体 操作 步骤 如 下 。 

(1) 绑 定 记 录 集 。 在 制作 该 区 域 的 数据 显示 之 前 ， 需 要 首先 绑 定 记录 集 Recordset2 。 
Recordset2 使 用 connection 连接 ,选择 表格 为 postRe， 选 定 全 部 列 ， 筛 选 使 用 m_id 字段 ， 使 它 
等 于 URL 传递 的 参数 main id， 并 根据 re_time 字段 进行 降序 排列 ， 如 图 12-32 所 示 。 








12-32 Recordset2 设置 


(2) 绑 定数 据 。 在 回复 内 容 显示 区 域 绑 定 Recordset2 的 re_name、 re_subject、 re_time、 total 
record 到 页 面 表格 的 相应 位 置 。 下 面 的 设置 与 浏览 帖子 相似 ， 参 照 浏 览 帖子 的 操作 在 显示 
re_name 数据 的 下 方 ， 绑 定 re_face 数据 到 <img> 标 签 ， 并 将 图 片 “ 主 页 ”链接 到 回复 帖子 的 用 
户 的 个 人 主页 ， 将 图 片 “ 邮 箱 ” 链 接 到 回复 帖子 的 用 户 的 个 人 电子 信箱 ， 如 图 12-33 所 示 。 

(3) 设置 重复 区 域 。 参 照 前 面 的 操作 ， 设 置 回复 内 容 显示 的 区 域 为 重复 区 域 ， 设 置 如 图 
12-34 所 示 。 

(4) 添加 导航 条 。 参 照 前 面 的 操作 ， 在 重复 区 域 的 右 下 方 的 表格 中 添加 记录 集 导 航 条 ， 导 


NN 





航 条 设置 如 图 12-35 所 示 。 











图 12-34 ”重复 区 域 设置 图 12-35 ”记录 集 导航 条 设置 
至 此 ， 回 复 内 容 显 示 部 分 的 制作 完毕 ， 该 区 域 的 最 终 设计 视图 如 图 12-36 所 示 。 





标题 。 [Recordao12.z0_subjeet] 
; [Recordset2. re_content} 





12-36 ”回复 内 容 页 面 设计 视图 
12.2.4 ”帖子 搜索 


在 论坛 的 首页 设置 了 帖子 搜索 功能 , 用 户 在 文本 框 中 输入 要 搜索 的 帖子 的 关键 字 , 单 击 “ 搜 
索 ” 按 钮 , 则 在 搜索 结果 页 面 (search.asp) 上 显示 出 符合 条 件 的 相关 帖子 条 目 。 页 面 效 果 如 图 12-37 
所 示 。 
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12-37 ”帖子 搜索 页 面 效果 
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有 具体 操作 步骤 如 下 。 
(1) 设置 表单 。 
如 图 12-12 所 示 ， 在 主页 中 显示 的 已 发 表 的 帖子 的 下 方 插入 一 个 表单 ， 表 单 中 设置 一 个 文 
本 框 和 一 个 按钮 。 用 户 在 表单 中 输入 查询 的 帖子 的 关键 字 ， 单 击 “ 搜 索 ” 按 钮 进行 搜索 。 
表单 代码 如 下 : 
<form name="searchtitle" method="POST" action="search.asp" target=" blank"> 
<td align="left"> 快 速 搜索 : 
<input name="keyword" type="text" size="16"> 
<input type="submit" name="Submit" value=" 搜 索 "> 
</td> 





</form> 

(2) 绑 定 记录 和 集 。 

单 击 插入 工具 栏 中 的 “数据 ”一 栏 ， 单 击 国 按钮 ， 绑 定 记录 集 Recordset1， 设 置 记录 集 的 
相关 选项 ， 如 图 12-38 所 示 。 








图 12-38 绑 定 记录 集 1 


记录 集 1 绑 定 到 postMain 数据 表格 ， 并 选 定 全 部 列 ， 在 筛选 选项 中 ， 设 置 筛 选 的 字段 为 
main subject， 包 含 表单 变量 keyword， 并 且 按 照 main_time 的 降序 进行 排列 。 

(3) 绑 定数 据 . 绑 定 完成 数据 集 后 ,将 记录 集 1 的 main_subject、main name、main_important、 
main_time 绑 定 到 搜索 结果 页 面 的 “帖子 主题 ”“ 作 者 ”“ 类 型 ” “发 表 时 间 ” 处 ， 如 图 12-39 
所 示 。 选 中 表格 中 所 有 绑 定数 据 所 在 的 行 标签 ， 设 置 Recordsetl 为 重复 区 域 。 操 作 与 帖子 浏览 
页 面 的 制作 步骤 相同 ， 这 里 不 再 歼 述 。 





汤 ASP+Dreamweave: 
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12-39 ”搜索 结果 页 面 绑 定数 据 


(4) 设置 超 链接 。 选 中 网 页 中 的 文本 {Recordsetl.main _subject}， 设 置 它 链接 到 show.asp， 
代码 如 下 : 


NNN 
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<a ref=show.asp?main id=<%=(Recordsetl.Fields.Item("main id") .Value)s>> 
<%= (Recordset1.Fields.Item("main subject") .Value)s> </a> 
该 页 面 的 顶部 设置 与 首页 相同 ， 参 照 首页 对 本 页 面 的 文本 “论坛 首页 ”和 “管理 登录 ” 进 
行 超 链 接 设 置 。 
(5) 设置 记录 集合 不 为 空 的 显示 效果 。 
选择 所 设置 的 重复 区 域 ， 单 击 插入 工具 栏 中 “数据 ” 栏 中 的 国 3 按 钮 ， 在 下 拉 菜 单 中 选 
择 “ 如 果 记 录 集 不 为 空 则 显示 区 域 ” 命 令 ， 在 弹出 的 对 话 框 中 选择 Recordsetl ， 如 图 12-40 
所 示 。 
此 操作 的 目的 是 在 查询 记录 集合 时 ， 存 在 记录 和 集 为 空 的 情况 。 如 果 记 录 集 不 为 空 ， 则 显示 
搜索 到 的 帖子 列表 ; 如 果 为 空 则 显示 其 他 信息 。 
(6) 设置 记录 集合 为 空 的 显示 效果 。 
在 显示 搜索 帖子 信息 的 表格 的 下 方 添加 文本 “没有 相关 帖子 ， 请 重新 查询 ! ”。 选 择 该 文 
， 单 击 工具 栏 中 的 “显示 区 域 ”按钮 ， 在 下 拉 菜 单 中 选择 “如 果 记录 集 为 空 则 显示 区 域 ” 命 
。 在 弹出 的 对 话 框 中 选择 记录 集 recordset1， 单 击 “ 确 定 ” 即 可 ， 如 图 12-41 所 示 。 


如 果 记 录 集 不 为 空 则 显示 区 域 X| 如 果 记 录 集 为 裤 则 显示 区 域 





今 计 





图 12-40 “如 果 记 录 集 不 为 空 则 显示 区 域 ”对 话 框 ”图 12-41 “如 果 记 录 集 为 空 则 显示 区 域 ”对 话 框 


12.2.5 ”论坛 管理 


1. 管理 员 登 录 (login.asp) 与 退出 


管理 员 登 录用 于 检查 管理 员 身 份 的 合法 性 ， 并 防止 用 户 未 登录 就 进入 管理 页 面 。 该 页 面 将 
用 户 账号 和 密码 提交 到 服务 器 端 ， 检 查 它 的 合法 性 。 

有 具体 操作 步骤 如 下 。 

(1) 在 Dreamweaver 中 新 建 login.asp 页 面 ， 新 建 表单 fpbrm1， 在 表单 中 设置 两 个 文本 框 ， 
一 个 设置 为 text， 另 一 个 设置 为 password， 并 设置 两 个 按钮 ， 一 个 类 型 设置 为 submit， 男 一 个 
类 型 设置 为 reset， 如 图 12-42 所 示 。 














乾 号 : CE 
密码 ; CE 
登录 | 取消 





12-42 ”管理 员 登 录 表单 设计 视图 
(2) 选择 插入 工具 栏 中 的 “数据 ” 栏 ， 单 击 “ 用 户 身 份 验证 : 登录 用 户 ” 命 令 ， 弹 出 “ 登 
录用 户 ” 对 话 框 。 在 该 对 话 框 中 “从 表单 获取 输入 ”选择 步骤 (]) 设 置 的 表单 forml1，“ 用 户 名 
字段 ?和 “密码 字段 ”分 别 选择 用 户 在 fomml 中 设置 的 输入 用 户 名 和 密码 的 文本 框 name 和 pass。 
“使 用 连接 验证 ”选择 connection，“ 表 格 ” 处 选择 passadmin，“ 用 户 名 列 ” 选 择 usmame 字 
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段 , “密码 列 ” 选择 passwd 字段 。 设 置 “如 果 登 录 成 功 ， 转 到 ”为 adminuser.asp， 并 选中 “ 转 
到 前 一 个 URL( 如 果 它 存在 )” 复 选 框 ， 设 置 “ 如 果 登 录 失 败 ， 转 到 ”为 login.asp。 并 设置 基于 
“用 户 名 和 密码 ”访问 。 设 置 的 情况 如 图 12-43 所 示 。 











12-43 ”登录 用 户 设置 


管理 员 登 录 成 功 ， 并 进行 管理 完成 后 ， 应 该 可 以 实现 退出 登录 。 退 出 后 使 浏览 器 定位 到 论 
坛 首页 。 

有 具体 操作 步骤 如 下 。 

(1) 在 登录 成 功 后 ， 浏 览 器 转 到 管理 账号 页 面 (adminuserasp)， 在 Dreamweaver 中 设计 该 
页 面 ， 如 图 12-44 所 示 。 


衣 出 入 理 届 由 管理 帖子 人 
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图 12-44 登录 成 功 后 页 面 的 设计 


(2) 选中 文本 “退出 ”， 选 择 插入 工具 栏 中 的 “数据 ” 栏 ， 单 击 “ 用 户 身 份 验证 : 注销 用 
户 ” 命 令 ， 弹 出 “注销 用 户 ” 对 话 框 。 在 该 对 话 框 中 选中 “ 单 击 链接 ” 单 选 按钮 ， 链 接 到 选中 
的 文本 “退出 ”， 设 置 “ 在 完成 后 ， 转 到 ”为 index.asp 页 面 ， 单 击 “ 确 定 ” 按 钮 完成 设置 ， 
如 图 12-45 所 示 。 








图 12-45 登录 成 功 后 页 面 的 设计 
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为 了 防止 用 户 未 登录 或 退出 后 未 重新 登录 就 进入 管理 页 面 ， 需 要 进行 登录 安全 设置 。 具 体 
操作 步骤 如 下 。 
(1) 在 Dreamweaver 中 打开 “应 用 程序 ”面板 ， 切 换 到 “ 绑 定 ”标签 ， 单 击 “ 十 ”按钮 ， 


选择 “阶段 变量 ”命令 ， 在 弹出 的 “阶段 变量 ”对 话 框 中 ， 输 入 名 称 为 MM_Usemame， 单 击 
“确定 ”按钮 ， 如 图 12-46 所 示 。 


阶段 支 量 Xx| 





图 12-46 “阶段 变量 ”对 话 框 
(2) 切换 到 Dreamweaver 的 代码 视图 ， 输 入 以 下 代码 : 


<% 

if(Session ("MM Username")="")then 
response.Redirect ("login.asp") 
end if 

$%> 


该 段 代 码 的 功能 是 判断 session 变量 如 果 为 空 ， 则 重 定向 页 面 到 login.asp， 要 求 用 户 登 录 ， 
从 而 保证 只 有 登录 用 户 才 可 以 进行 管理 操作 。 

同样 地 ， 在 以 下 的 管理 页 面 中 都 要 设置 这 一 段 代 码 ， 实 现在 所 有 的 页 面 中 实现 安全 设置 ， 
操作 相同 ， 这 里 不 再 资 述 。 

2. 管理 员 账 号 管理 


管理 员 账 号 管理 涉及 3 个 页 面 : 一 是 登录 成 功 后 转 到 的 adminuser.asp; 二 是 修改 账号 与 密 
码 的 adminuserxg.asp; 三 是 删除 账号 的 页 面 adminuserdel.asp。 下面 分 别 讲解 这 3 个 页 面 的 制作 。 

1) ”adminuser.asp 页 面 的 制作 

登录 成 功 后 转 到 的 页 面 adminuser.asp 实现 添加 管理 员 账号 和 密码 , 显示 数据 库 中 已 存 的 管 
理 员 账号 和 密码 ， 并 设置 有 修改 和 删除 的 超 链接 。 该 页 面 的 设计 如 图 12-44 所 示 ， 它 的 预览 效 
果 如 图 12-47 所 示 。 

(1) 在 Dreamweaver 中 按照 如 图 12-44 所 示 设 计 该 页 面 ， 在 页 面 设计 一 个 表单 ， 包 括 两 个 
文本 框 ， 分 别 用 于 输入 新 建 的 用 户 名 及 其 密码 ; 两 个 按钮 ， 分 别 是 submit 和 reset 类 型 ， 设计 
一 个 表格 ， 用 于 显示 已 经 添加 的 管理 员 账 号 和 密码 信息 ， 以 及 修改 和 删除 超 链接 。 

(2) 绑 定 记 录 集 。 在 本 页 绑 定 记 录 集 Recordset1， 如 图 12-48 所 示 。 

(3) 绑 定 数据 。 绑 定 记录 集 1 的 usmame、passwd 到 页 面 上 ， 并 设置 它们 所 在 的 行为 重复 
区 域 ， 如 图 12-49 所 示 。 

(4) 插入 记录 。 在 该 页 面 中 的 forml 表单 输入 用 户 名 和 密码 ， 如 图 12-50 所 示 。 单 击 “ 添 
加 ”按钮 将 新 输入 的 用 户 名 和 密码 添加 到 数据 库 中 。 
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12-47 adminuser.asp 页 面 效 果 


图 12-50 ”form1 设计 视图 


单 击 插入 工具 栏 中 的 “数据 ” 栏 ， 单 击 “ 插 入 记录 ”， 设 置 “ 连 接 ” 为 connection， 设 置 
“插入 到 表格 ”为 passadmin 表 ， 设 置 “插入 后 ， 转 到 ”为 adminuser.asp， 从 页 面 的 forml 表 








图 12-51 “插入 记录 ”对 话 框 


单 击 “确定 ”按钮 。 这 样 ， 当 单 击 “ 提 交 ” 按 钮 时 ， 就 能 够 将 页 面 表单 forml 的 各 元 素 插 
入 到 表格 记录 的 相应 字段 中 ， 将 新 用 户 的 账号 和 密码 存 入 数据 表 。 

(5) 设置 超 链接 。 在 该 页 面 选中 文本 “管理 员 账号 管理 ”， 设 置 链接 为 adminuser.asp; 同 
理 ， 设 置 文 本 “帖子 管理 ” 超 链接 为 admingl.asp; 设置 文本 “修改 ” 超 链接 的 代码 为 : 


NN 





<ahref="adminuserxg.asp?username=<%= (Recordset1.Fields.Item("usrname") .Valu 
e) s>"> 修 改 a 


设置 文本 “删除 ” 超 链接 的 代码 为 : 


<a 

href="adminuserdel.asp?username=<%= (Recordset1-Fields.Item("usrname") .Value 

) s>"> 删 除 </a> 

2) ”adminuserxg.asp 页 面 的 制作 

在 adminuser.asp 页 面 ， 当 单 击 “ 修 改 ” 超 链接 ， 转 到 adminuserxg.asp 页 ， 该 页 面 的 设计 
视图 如 图 12-52 所 示 。 该 页 面 设置 了 一 个 表单 form1， 表 单 中 包含 2 个 文本 框 ， 分 别 用 于 显示 / 
输入 账号 和 输入 密码 ， 另 外 ， 必 须 设 置 1 个 类 型 为 submit 的 按钮 ， 用 于 提交 表单 ， 还 设置 了 1 
个 重 置 按 钮 。 

(1) 绑 定 记录 集 1， 使 用 usrmame 筛选 URL 传递 的 usemame 参数 ， 设 置 如 图 12-53 所 示 。 





12-52 adminuserxg.asp 设计 视图 12-53 ” 绑 定 记 录 集 1 


(2) 打开 “应 用 程序 ”面板 ， 切 换 到 “ 绑 定 ” 标 签 ， 单 击 “ 十 ”按钮 ， 选 择 “请 求 变量 ” 
命令 ， 在 弹出 的 “请 求 变量 ”对 话 框 中 ， 类 型 选择 “请 求 ”， 名 称 设置 为 usemame， 单 击 “ 确 
定 ” 按 钮 ， 如 图 12-54 所 示 。 





图 12-54 设置 请 求 变量 


(3) 绑 定 请 求 变量 usemame 到 账号 名 称 右 侧 的 文本 框 ， 如 图 12-55 所 示 。 
(4) 更 新 记录 。 单 击 插入 工具 栏 中 的 “数据 ? 栏 , 单 击 * 更 新 记录 ”设置 “连接 "为 connection， 
设置 “要 更 新 的 表格 ”为 passadmin， 设 置 记 录 集 为 Recordsetl， 设 置 “ 唯 一 键 列 ”为 usmame， 
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设置 “在 更 新 后 , 转 到 ”为 adminuser.asp, 从 页 面 的 forml 表单 获取 数据 ,分 别 对 应 更 新 passadmin 
表格 的 相应 字段 ， 如 图 12-56 所 示 。 







:JE 主义， 
ER | EW | 
才 助 史 


选取 记录 自 : [ecords=t1 








passwa 





图 12-55 ” 绑 定 请 求 变量 图 12-56 更 新 记录 设置 


(5) 同样 ， 在 adminuser.asp 页 面 设置 “注销 用 户 ” 服 务 器 行为 ，“ 管 理 员 账号 管理 ”和 
“帖子 管理 ”的 链接 设置 与 前 面 内 容 设 置 相同 。 选 中 “返回 ”文本 ,设置 超 链接 代码 为 : 
<a href="javascript:history.go(-1)"> 返 回 </a>。 

3) ”adminuserdel.asp 页 面 的 制作 

在 adminuser.asp 页 面 ， 当 单 击 “ 删 除 ” 超 链接 ， 转 到 adminuserdel.asp 页 面 ， 该 页 面 的 设 
计 视 图 如 图 12-57 所 示 。 该 页 面 设置 了 1 个 表单 forml, 表单 中 设置 1 个 类 型 为 submit 的 按钮 ， 
用 于 提交 表单 ， 另 外 设置 了 1 个 文本 “返回 ”。 

(1) 绑 定 记 录 集 1， 设 置 与 图 12-53 一 致 ， 这 里 不 再 袭 述 。 

(2) 删除 记录 。 单 击 插入 工具 栏 中 的 “数据 ? 栏 , 单 击 “ 删 除 记 录 ”按钮 , 设置 要 从 passadmin 
表 删 除 记 录 ， 设 置 记录 集 为 Recordsetl ，“ 唯 一 键 列 ” 设 为 usmame， 从 页 面 提交 表单 forml 
删除 数据 ， 设 置 “ 删 除 后 ， 转 到 ”为 adminuser.asp， 如 图 12-58 所 示 。 
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12-57 adminuserdel.asp 设计 视图 12-58 ”删除 记录 设置 

(3) 选中 文本 “返回 ”， 与 adminuserxg.asp 相同 ,设置 它 的 超 链接 代码 为 <a 
href="javascript:history.go(-1)"> 返 回 </a>。 

3. 帖子 管理 

对 已 经 发 表 的 帖子 ， 论 坛 为 管理 员 提供 了 删除 该 帖子 ， 删 除 该 帖子 的 回复 信息 ， 对 帖子 的 
类 型 进行 修改 的 功能 ,帖子 管理 涉及 5 个 页 面 :admingl.asp、adminglxg.asp、delreplay.asp、hot.asp、 
admintzdel.asp。 
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1) ”admingl.asp 页 面 的 制作 
帖子 管理 主页 面 admingl.asp 的 设计 视图 如 图 12-59 所 示 。 





帖子 标题 
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图 12-59 ”帖子 管理 页 面 设计 视图 
该 页 面 的 制作 步骤 如 下 。 
(1) 在 Dreamweaver 中 设计 页 面 的 框架 ,页面 项 端 与 adminuser.asp 页 面相 同 ， 这 里 不 再 
缆 述 。 设 计 一 个 表格 ， 用 于 显示 帖子 的 相关 信息 和 帖子 的 操作 链接 。 
(2) 绑 定 记 录 集 Recordsetl， 设 置 如 图 12-60 所 示 。 





图 12-60 绑 定 记录 集 1 


(3) 绑 定 Recordsetl 的 main_subject、main name、main time、num_ hits 到 页 面 上 ， 在 页 
面 选中 {Recordsetl.main_subject} 设 置 链接 代码 如 下 : 


<a 
href="adminglxg.asp?main id=<%=(Recordsetl1.Fields.Item("main id") .Value)g>" 
> 

<%= (Recordset1.Fields.Item("main subject") .Value)®></a> 


在 “操作 ”处 设置 文本 “热点 ”的 链接 代码 如 下 : 


<a 
href="hot .asp?id=<%= (Recordset1.Fields.Item("main id") .Value)®%>&image=image 
s/hot.gif"> 热 点 </a> 


设置 文本 “精华 ”的 链接 代码 如 下 : 


<a 
href="hot .asp?id=<%= (Recordset1.Fields.Item("main id") .Value)s>&image=image 
s/jing .gif"> 精 华 </a> 


设置 文本 “普通 ”的 链接 代码 如 下 : 


<a 
href="hot .asp?id=<%= (Recordset]1 .Fields.Item("main id") .Value)s>&image=image 


s/putong.gif"> 普 通 </a> 
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设置 文本 “删除 ”的 链接 代码 如 下 : 

<a href="admintzdel.asp?id=<%= (Recordsetl .Fields.Item("main id") .Value)g>"> 

删除 </a> 

(4) 选中 绑 定 的 数据 所 在 的 行 标签 ， 设 置 重复 区 域 ， 每 页 显示 10 条 记录 ， 并 设置 记录 集 
导航 条 。 操 作 与 前 面 的 操作 相同 ， 不 再 獒 述 。 

2) adminglxg.asp 页 面 的 制作 

adminglxg.asp 页 面 是 显示 帖子 的 信息 和 回复 信息 ， 它 与 show.asp 页 面 的 设计 基本 相同 ， 
不 同 的 是 去 掉 了 回复 帖子 的 功能 , 而 且 在 每 条 回复 信息 处 添加 了 一 个 “删除 ”链接 ,如 图 12-61 
所 示 。 














图 12-61 增加 “删除 ”链接 
相同 的 部 分 不 再 袭 述 ， 添 加 的 “删除 ”链接 的 代码 如 下 : 
<a href="delreplay.asp?id=<%= (Recordset2.Fields.Item("re id") .Value)s>"> 删 除 
</a> 
删除 操作 使 用 delreplay.asp 页 面 实现 。 下 面 讲解 该 页 面 的 制作 过 程 。 
3) ”delreplay.asp 页 面 的 制作 
该 页 面 实现 删除 回复 记录 的 功能 ， 设 计 与 删除 账号 页 面 adminuserdel.asp 相同 ， 如 图 12-62 
所 示 。 


你 确定 要 出 际 这 条 回复 名? 间 确定 | 六 回 | 





图 12-62 delreplay.asp 页 面 设 计 


不 同 的 是 记录 和 集 和 删除 记录 的 参数 设置 不 同 ， 设 置 如 图 12-63 所 示 。 
4) ”hot.asp 页 面 的 制作 


<a 
href="hot .asp?id=<%= (Recordset1.Fields.Item("main id") .Value)s>&image=image 
s/hot .gif"> 热 点 </a> 
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12-63 ”记录 集 和 删除 记录 设置 


新 建 页 面 hot.asp， 切 换 到 代码 视图 ， 输 入 以 下 代码 : 


<%QLANGUAGE="VBSCRIPT" CODEPAGE="936"%> 

<!--#include file="Connections/connection.asp" --> 

< 要 

Set Commandl = Server.CreateObject ("ADODB.Command") 
Command1l .ActiveConnection = MM connection STRING 

Command1 .CommandText = "UPDATE PostMain SET main important= 
'"grequest.querystring ("image") &g"' WHERE main id="grequest.querystring("id") 
Commandl .CommandType = 1 

Commandl .CommandTimeout = 0 

Commandl .Prepared = true 

Command] .Execute () 

response.Redirect ("admingl.asp") 

%> 


本 页 面 的 代码 根据 URL 传递 的 id 参数 ， 筛 选 并 定位 到 postMain 表格 的 main id， 从 而 确 
定 记录 条 目 ， 然 后 使 用 URL 传递 的 image 参数 更 新 postMain 表格 的 main_important 字段 。 主 
要 的 代码 是 该 段 代 码 的 粗 体 部 分 。response.Redirect("admingl.asp") 的 功能 是 更 新 数据 库 后 ， 自 
动 重 定向 到 admingl.asp 页 面 。 

文本 “精华 ”“ 普 通 ” 的 链接 都 是 hotasp， 只 是 传递 的 参数 不 同 ， 这 里 不 再 袭 述 。 

5) ”admintzdel.asp 页 面 的 制作 

在 admingl.asp 页 面 设置 文本 “删除 ”的 链接 代码 如 下 : 

<a href="admintzdel .asp?id=<%= (Recordsetl .Fields.Item("main id") .Value)®%>"> 

删除 </a> 

admintzdel.asp 页 面 实现 删除 帖子 的 功能 ， 该 页 面 的 设计 与 删除 账号 页 面 adminuserdel.asp 
相同 ， 如 图 12-64 所 示 。 





12-64 admintzdel.asp 页 面 设计 
不 同 的 是 记录 集 和 删除 记录 的 参数 设置 不 同 ， 设 置 如 图 12-65 所 示 。 
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12-65 ”记录 集 和 删除 记录 设置 


12.3 小 结 


本 章 详细 讲解 了 一 个 典型 的 论坛 的 制作 过 程 。 该 论坛 使 用 Dreamweaver 作为 开发 工具 , 采 
用 ASP+Access 模式 ， 虽 然 功 能 比较 简单 ， 但 是 具有 论坛 的 最 基本 的 功能 : 发 表 帖 子 ， 回 复 帖 
子 ， 搜 索 帖子 ， 对 帖子 和 回复 以 及 管理 员 进行 管理 。 由 于 篇 幅 的 限制 ， 没 有 设置 流行 的 论坛 的 
版 主 及 讨论 区 的 划分 等 类 似 的 功能 ， 这 些 功 能 等 读者 掌握 了 本 书 讲解 的 方法 之 后 ， 自 己 都 能 够 
实现 。 

通过 本 章 的 学 习 ， 读 者 能 够 学 到 Dreamweaver 数据 行为 ， 以 及 各 页 面 之 间 的 参数 传递 方 
法 。 本 章 有 一 些 与 前 面 的 章节 重 且 的 内 容 ， 只 做 了 简单 介绍 或 略 过 ,读者 可 以 参考 前 面 的 相关 
章节 。 学 习 完 本 章 ， 读 者 可 以 尝试 为 论坛 添加 其 他 功能 。 
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第 13 章 网 上 购物 网 站 


2 内 容 摘要 apswsc 

本 章 介绍 网 上 购物 网 站 的 设计 与 实现 。 构 建 一 个 小 型 用 户 在 线 购买 商品 的 电子 商务 平台 。 
本 系统 采用 ASP+Access 模式 ， 采 用 模块 化 设计 ， 将 系统 分 为 用 户 模块 和 管理 员 模块 。 用 户 在 
浏览 商品 的 同时 ， 可 以 将 满意 的 商品 添加 到 购物 车 。 通 过 购物 车 来 设置 买卖 商品 的 数量 并 生成 
订单 。 而 在 管理 员 模块 中 ， 管 理 员 可 以 实现 对 商品 信息 、 订 单 信息 和 商品 类 别 的 管理 。 

网 上 购物 网 站 采用 模块 化 设计 ， 比 较 详细 地 分 析 了 购物 网 站 的 结构 。 对 于 网 站 的 静态 页 面 
的 设计 使 用 了 网 页 规划 、CSS 样式 ， 并 且 充 分 利用 Dreamweaver CS3 的 数据 行为 ， 完 成 整个 网 
站 的 制作 。 


= 地 学 习 目 标 ! oujecuve _ 
页 内 框架 的 使 用 。 

实现 购物 车 。 

数据 的 添加 、 删 除 和 修改 。 
订单 生成 。 

订单 发 货 状 态 的 修改 。 


13.1 系统 分 析 与 总 体 设计 


分 析 系 统 功能 是 开发 平台 的 一 个 重要 环节 ， 目 的 是 使 开发 的 系统 能 够 更 好 、 更 完善 地 执行 
我 们 所 需要 实现 的 功能 。 本 章 介绍 本 系统 的 具体 功能 ， 系 统 中 各 模块 之 间 的 关系 ， 以 及 系统 数 
据 库 的 设计 。 


13.1.1 功能 介绍 


本 章 所 设计 的 网 上 购物 网 站 系统 可 以 分 为 前 台 管 理 和 后 台 。 前 台 管理 是 友好 的 操作 界 
面 ， 供 用 户 进行 商品 浏览 、 购 物 车 和 生成 订单 的 操作 。 而 后 台 管 RS 
息 的 管理 ， 以 及 对 商品 信息 、 商 品 分 类 信息 、 el 

. 前台 系统 的 功能 设计 

前 台 管 理 是 为 用 户 提供 友好 的 操作 界面 , 供用 户 进行 商品 浏览 、 购 物 车 和 生成 订单 等 功能 
而 当 用 户 使 用 购物 车 时 ， 首 先进 行 登录 身份 验证 。 如 果 为 新 用 户 ， 需 要 先进 行 注册 。 

1) ”用 户 注册 和 登录 

用 户 在 进行 购物 之 前 ， 需 要 先进 行 登录 ， 这 样 在 用 户 结束 购物 时 ， 通 过 登录 账号 来 进行 结 
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账 。 对 于 新 用 户 ， 可 以 在 登录 页 面 进行 用 户 注 册 ， 通 过 填写 注册 信息 ， 将 信息 提交 给 服务 器 。 
如 果 用 户 名 已 经 存在 ， 系统 将 向 用 户 显示 相应 的 错误 信息 ， 并 提示 用 户 使 用 其 他 用 户 名 进行 注 
册 。 用 户 登 录 后 可 以 随时 修改 个 人 注册 信息 。 

网 上 购物 系统 要 求 用 户 输入 用 户 名 、 密 码 。 在 输入 用 户 名 和 密码 之 后 ， 系 统 将 确认 用 户 名 
和 密码 是 否 正确 ， 如 果 验 证 成 功 ， 就 使 用 户 进入 登录 状态 。 否 则 ， 系 统 只 显示 用 户 名 和 密码 的 
错误 信息 。 

2) ”商品 浏览 与 搜索 

商品 浏览 是 网 上 购物 网 站 提供 给 用 户 的 一 个 最 基本 的 功能 。 用 户 可 以 根据 商品 的 类 别 来 分 
类 浏览 商品 。 在 系统 的 主页 面 上 ， 能 够 对 所 有 商品 类 别 进行 列表 ， 用 户 可 以 通过 单 击 商品 类 别 
名 称 ， 来 浏览 商品 ， 查 看 到 商品 的 图 片 和 价格 等 最 基本 的 信息 。 在 浏览 的 过 程 中 ， 可 以 将 满意 
的 商品 添加 到 购物 车 中 。 

用 户 也 可 以 通过 使 用 系统 提供 的 搜索 功能 对 商品 进行 搜索 ， 查 找 自 己 需 要 的 商品 。 

3) ”购物 车 

当 用 户 在 浏览 商品 的 过 程 中 ， 可 以 将 满意 的 商品 通过 单 击 “ 购 买 ”按钮 ， 将 商品 添加 到 购 
物 车 中 。 浏 览 结束 或 者 在 浏览 的 过 程 中 可 以 查看 购物 车 里 放置 商品 的 情况 ， 并 且 可 以 查看 到 所 
购买 商品 的 名 称 、 价 格 、 描 述 、 购 买 数 量 、 单 价 等 信息 。 

在 购物 车 中 可 以 通过 单 击 “ 移 除 ”按钮 将 不 想 购 买 的 商品 删除 ， 也 可 以 任意 更 改 购买 商品 
的 数量 。 

4) ”生成 订单 

在 用 户 购物 结束 后 ， 进 行 结账 时 ， 需 要 填写 相关 的 信息 和 确认 要 购买 商品 的 信息 。 用 户 确 
认 后 开始 填写 订单 的 信息 , 包括 信用 卡号 码 、 类 型 、 过 期 时 间 及 送 货 的 详细 地 址 。 填写 完 毕 后 ， 
用 户 就 可 提交 订单 了 。 用 户 可 以 在 下 次 登录 后 查看 自己 的 订单 和 发 货 情 况 。 


2. 后 台 管 理 的 功能 设计 


后 台 管 理 的 功能 主要 是 为 网 站 的 管理 员 提 供 对 商品 类 别管 理 、 用 户 信息 、 商 品 信息 、 订 单 
信息 的 管理 。 

1) ”商品 类 别管 理 

商品 类 别管 理 实现 对 商品 类 别 的 添加 、 删除 、 修改 等 管理 。 管理 员 登 录 到 后 台 管理 系统 后 ， 
能 够 对 商品 的 类 别 进行 管理 。 可 以 添加 新 的 商品 分 类 ， 并 且 可 以 对 已 添加 的 商品 类 别 进行 修改 
和 删除 。 在 执行 删除 操作 时 ， 可 以 将 该 商品 类 别 的 相关 商品 进行 删除 。 

2) “用户 信息 管理 

在 用 户 信息 管理 中 ， 管 理 员 可 以 浏览 注册 用 户 的 详细 信息 ， 也 可 以 删除 一 些 长 时 间 没有 登 
录 的 用 户 信息 。 

3) ”商品 信息 管理 

在 商品 信息 管理 模块 中 ， 管 理 员 可 以 通过 这 个 模块 添加 新 的 商品 ， 设 置 商品 的 商品 类 型 、 
商品 名 称 、 商 品 价格 等 信息 ， 也 可 以 对 已 经 添加 的 商品 信息 进行 修改 和 删除 。 

4) ”订单 管理 

在 订单 管理 模块 中 ， 实 现 管理 员 对 用 户 提交 的 订单 进行 查看 ， 也 可 以 对 交易 完成 、 保 存 了 
一 定时 间 的 订单 信息 进行 删除 。 同 时 ， 管 理 员 的 一 项 重要 的 工作 就 是 设置 用 户 购买 的 商品 的 发 
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货 状态 。 如 果 设 置 了 用 户 订单 已 经 发 货 ， 则 当 用 户 查 看 订单 时 ， 可 以 看 到 订单 交易 的 情况 。 
13.1.2 总 体 布局 


网 上 购物 网 站 系统 可 以 分 为 前 台 管 理 和 后 台 管 理 。 前 台 管理 的 具体 功能 包括 新 用 户 注册 、 


用 户 登 录 、 商 品 浏览 、 











品 查询 、 购 物 车 、 生 成 订单 、 订 单 查询 。 而 后 台 管理 员 管 理 系统 包括 


的 具体 功能 有 管理 员 登 录 、 用 户 信息 管理 、 商 品 信息 管理 、 商 品类 别管 理 、 用 户 订单 管理 。 系 





统 的 总 体 布 


瘤 洪 闪光 上 下 





局 如 图 13-1 所 示 。 





用 户 购物 模块 


管理 员 信息 管理 模块 





13-1 系统 的 总 体 布局 


用 户 信息 管理 












商品 类 别管 理 





用 户 订单 管理 
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修改 商品 信息 
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13.1.3 ”数据库 的 结构 及 实现 


本 系统 采用 Access 数据 库 ， 安 装 和 操作 比较 简单 。 本 系统 共 创建 了 5 个 数据 表格 。 

(1) admin 数据 表 : 存储 管理 员 信 息 的 数据 表 ， 包 括 管理 员 的 登录 名 和 密码 。 

(2) shop 数据 表 : 存储 商品 信息 的 数据 表 ， 包 括 商 品 的 名 称 、 价 格 、 品 牌 、 说 明 等 信息 。 

(3) user 数据 表 : 存储 用 户 信息 的 数据 表 ， 包 括 购买 商品 用 户 的 用 户 名 、 密 码 、email、 电 
话 等 基本 信息 。 

(4) fenlei 数据 表 : 存储 商品 的 分 类 信息 的 数据 表 ， 包 括 商 品 分 类 的 id 号 和 分 类 名 称 。 

(5) yuding 数据 表 : 存储 用 户 的 订货 信息 的 数据 表 , 包括 购买 者 的 姓名 、 联 系 方式 、 电 话 、 
邮递 地 址 、 商 品 购买 订单 以 及 购买 商品 的 总 价格 和 购买 方式 。 

(6) dingdan 数据 表 : 存储 商品 的 购物 订单 和 要 购买 商品 的 数量 。 

(7) orderid 数据 表 : 生成 商品 订单 号 。 

数据 库 及 数据 表格 创建 的 具体 操作 步骤 如 下 。 

1) “创建 数据 库 

首先 启动 Access 程序 ， 新 建 一 个 空白 数据 库 ， 命 名 为 data mdb。 

2) ”创建 admin 数据 表 

在 data.mdb 数据 库 窗口 的 左边 的 对 象 栏 内 单 击 “ 表 ”图 标 ， 在 窗口 右边 选择 “使 用 设计 器 
创建 表 ”， 在 弹出 的 数据 表 界 面 设计 窗口 中 设计 admin 表 的 字段 和 属性 ， 如 图 13-2 所 示 。 
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图 13-2 admin 表 的 字段 名 称 和 数据 类 型 


admin 数据 表 存 储 的 为 管理 员 的 用 户 名 usermame 字段 和 密码 password 字段 ， 数 据 类 型 都 
为 文本 类 型 。 

3) ”创建 user 数据 表 

使 用 表 设 计 器 创建 user 数据 表 ， 用 于 存储 用 户 的 相关 信息 ， 各 个 字段 、 数 据 类 型 和 说 明 如 
13-3 所 示 。 
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图 13-3 ”user 表 字段 名 称 和 数据 类 型 


user 数据 表 存储 用 户 的 基本 信息 , user_id 为 用 户 注册 的 用 户 名 , user_pass 为 注册 时 设置 的 
密码 ， 为 用 户 必 须 填写 的 内 容 。 
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4) “创建 shop 数据 表 
使 用 表 设 计 器 创建 shop 数据 表 ， 用 于 存储 商品 的 相关 信息 ， 各 个 字段 、 数 据 类 型 和 说 明 
如 图 13-4 所 示 。 




















13-4 ”shop 表 字 段 名 称 和 数据 类 型 


在 shop 表 中 用 户 存储 了 网 站 上 的 商品 信息 ， 有 具体 介绍 如 下 。 

(1) sp_title 字段 : 保存 商品 名 称 ， 为 文本 类 型 。 

(2) sp_price 字段 : 保存 商品 价格 ， 为 货币 类 型 ， 货 币 的 表示 形式 为 常规 数字 。 

(3) sp_leibie 字段 : 保存 商品 分 类 ， 该 字段 的 值 从 数据 表 分 类 中 读 取 。 

(4) sp_pinpai 字段 : 保存 商品 的 品牌 ， 用 户 可 以 使 用 它 来 搜索 相应 品牌 的 商品 。 

(5) sp_keyword 字段 : 保存 为 商品 添加 的 简单 关键 字 ， 供 用 户 搜索 时 使 用 。 

(6) sp_pic 字段 : 保存 商品 缩 略 图 的 图 片 路 径 。 

(7) sp_shuoming 字段 : 保存 商品 信息 的 详细 说 明 ， 用 户 可 以 更 加 详细 地 了 解 商品 的 具体 
情况 。 

(8) sp_num 字段 : 保存 商品 剩余 的 数量 ， 用 于 在 提交 订单 后 ， 自 动 更 新 该 商品 的 数量 。 

5) ”创建 fenlei 数据 表 

使 用 表 设 计 器 创建 fenlei 数据 表 ， 用 于 存储 商品 的 分 类 信息 ， 各 个 字段 、 数 据 类 型 和 说 明 
如 图 13-5 所 示 。 








图 13-5 fenlei 表 字段 名 称 和 数据 类 型 


这 个 数据 表 设计 比较 简单 ， 存 储 的 是 商品 的 分 类 信息 。 有 两 个 字段 ， 一 个 id 为 自动 编号 ， 
一 个 为 fenlei 字段 ， 表 示 商 品 的 分 类 名 称 ， 类 型 为 文本 。 

6) 创建 yading 数据 表 

使 用 表 设 计 器 创建 yuding 数据 表 ， 用 于 存储 用 户 订单 的 相关 信息 。 各 个 字段 、 数 据 类 型 
和 说 明 如 图 13-6 所 示 。 

yuding 表 保 存 了 用 户 在 网 站 上 预订 的 商品 信息 ， 具 体 介 绍 如 下 。 

(1) orderid 字段 : 存储 用 户 购买 商品 形成 的 订单 号 。 

(2) yd id 字段 : 存储 预订 人 登录 时 的 用 户 名 。 
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图 13-6 yuding 表 字段 名 称 和 数据 类 型 


(3) yd_name 字段 : 存储 预订 人 的 真实 姓名 。 

(4) yd_address 字段 : 存储 商品 邮递 的 地 址 。 

(5) yd_time 字段 : 记录 商品 的 预订 时 间 ， 以 便 及 时 给 用 户 邮递 商品 ， 类 型 为 日 期 /时 间 。 

(6) yd_ifsuccess 字段 : 设置 商品 是 否 发 货 ， 该 字段 的 类 型 为 “是 / 否 ”。 

(7) yd_phone 字段 : 存储 预订 用 户 的 电话 ， 以 方便 联系 。 

(8) fangshi 字段 : 记录 用 户 所 选用 的 付款 方式 。 

(9) price 字段 : 保存 用 户 预 订 商品 的 总 价格 ， 类 型 为 货币 。 

7) orderid 数据 表 

orderid 数据 表 设 置 比较 简单 ， 只 有 一 个 字段 为 orderid， 数 据 类 型 为 数字 ， 是 用 于 生成 订 
单 号 的 。 

8) dingdan 数据 表 

dingdan 数据 表 用 于 存储 用 户 的 购物 信息 ， 当 用 户 浏览 商品 时 ， 首 先 将 要 购买 的 商品 信息 
放置 在 购物 车 中 , 然后 再 确定 购买 的 数量 。 而 dingdan 数据 表 就 是 存储 购物 车 中 的 相关 信息 的 。 
各 个 字段 、 数 据 类 型 和 说 明 如 图 13-7 所 示 。 











图 13-7 dingdan 表 字 段 名 称 和 数据 类 型 


orderid 存储 用 户 的 订单 号 ;sp_id 存储 购买 商品 的 id 号 ;sp_num、sp_price 分 别 存储 购买 
商品 的 数量 和 总 价格 。 

创建 完 数据 库 后 ， 可 以 在 Dreamweaver 创建 站 点 和 配置 服务 器 。 配 置 完 站 点 后 ， 可 以 链接 
数据 库 。 相 关 的 设置 可 以 参考 前 面 的 章节 。 

以 上 是 设计 网 上 购物 网 站 的 基本 流程 ， 需 要 对 购物 网 站 的 基本 功能 做 一 个 简单 的 分 析 ， 了 
解 在 设计 购物 网 站 的 过 程 中 ， 应 该 注重 实现 购物 网 站 的 基本 功能 ， 总 体 布局 如 何 。 尤 其 要 区 分 
开 网 站 在 运行 过 程 中 , 用户 购买 商品 的 过 程 中 应 具备 的 功能 ， 管 理 员 在 管理 购物 网 站 的 过 程 中 
应 该 具备 的 功能 。 





13.2 ”前 台 用 户 模块 的 设计 


根据 13.1 节 的 系统 分 析 和 数据 库 设计 ， 本 节 使 用 Dreamweaver 作为 开发 工具 ， 使 用 ASP 
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和 Access 实现 网 上 购物 系统 的 前 台 模块 的 制作 。 本 模块 主要 实现 的 是 登录 用 户 浏览 商品 信息 ， 
添加 商品 到 购物 车 ， 并 生成 订单 的 功能 。 


13.2.1 首页 设计 


1. 首页 (index.asp) 说 明 
本 购物 网 站 的 首页 页 面 如 图 13-8 所 示 。 
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13-8 ”购物 网 站 的 首页 页 面 


用 户 在 访问 网 上 购物 网 站 的 首页 时 , 能 够 通过 导航 条 访问 网 站 。 实 现 浏览 商品 、 登 录 网 站 、 
注册 新 用 户 等 功能 。 

导航 条 : 网 页 文档 提供 横向 导航 条 ， 包 括 “ 首 页 ”“ 商 品 浏览 ”“ 商 品 查 询 ”“ 查 看 订单 ” 
“购物 车 ”和 “联系 我 们 ”导航 按钮 。 

用 户 登 录 : 在 导航 条 下 方 提供 表单 ， 提 供用 户 登录 使 用 。 对 于 新 用 户 可 以 单 击 “ 新 用 户 注 
册 ” 超 链接 进入 注册 页 面 进行 注册 。 

在 网 页 的 页 面 上 显示 最 新 的 商品 信息 。 

2. 操作 步骤 

1) ”添加 数据 库 连 接 

在 Dreamweaver 中 建立 站 点 并 添加 Microsoft Access 数据 库 连 接 ， 前 面 已 经 介绍 了 ， 这 里 
不 再 详细 讲解 操作 过 程 。 定 义 数 据 源 名 称 为 conn， 选 择 数据 库 为 13.1 节 建 立 的 datamdb， 定 
义 连接 名 称 为 connection, 在 “数据 源 名 称 (DSN)” 下 拉 列 表 框 中 选择 刚刚 创建 的 conn 数据 源 ， 
如 图 13-9 所 示 。 

2) 用 户 登 录 

用 户 登 录 和 注册 的 操作 步骤 已 经 在 前 面 的 章节 中 讲解 过 了 ,在 这 里 就 不 详细 说 明了 。 在 网 
上 购物 网 站 中 ， 用 户 登 录 功 能 的 实现 是 添加 一 个 “用 户 登录 ”的 服务 器 行为 。 在 弹出 的 “登录 
用 户 ” 对 话 框 中 设置 相关 的 选项 ， 如 图 13-10 所 示 。 

登录 成 功 后 转 到 shop.asp 页 面 , 该 页 面 后 面 将 会 详细 介绍 .登录 失败 后 转 到 error.asp 页 面 ， 
该 页 的 设计 视图 如 图 13-11 所 示 。 
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图 13-9 数据 库 连接 设置 
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图 13-10 设置 登录 用 户 图 13-11 error.asp 的 设计 效果 


该 页 面 的 文本 “返回 ”的 超 链 接 代码 为 : <a hre 伍 "javascript:history.go(-1)"> 返 回 </a>， 用 
于 返回 首页 重新 登录 。 

3) “数据 绑 定 显 示 最 新 上 架 的 商品 

首页 不 仅 实现 用 户 登 录 的 功能 ， 还 实现 浏览 最 新 上 架 的 商品 的 相关 信息 功能 。 网 页 上 只 是 
提供 简单 的 浏览 shop 数据 表 中 添加 的 最 近 10 条 记录 。 单 击 插入 工具 栏 中 的 “数据 ”一 栏 ， 单 
击 圆 按钮， 设置 记录 集 的 相关 选项 ， 如 图 13-12 所 示 。 
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图 13-12 设置 记录 集 
注意 : 记录 集 访问 的 为 shop 数据 表 , 按照 id 字段 进行 降序 排列 ,这样 能 将 最 新 添加 的 商品 显示 
在 最 上 面 。 
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4) ”设置 重复 区 域 
绑 定 到 记录 集合 后 , 将 商品 的 名 称 、 价格 、 说明 、 图片 以 及 商品 的 剩余 数目 显示 在 页 面 上 ， 
如 图 13-13 所 示 。 


最 新 商品 浏览 


| 独 品 各 称 * 


图 13-13 显示 商品 基本 信息 


在 设置 商品 图 片 时 ,设置 图 片 的 宽 和 高 为 150 像素 和 100 像素 。 由 于 数据 库 中 保存 的 商品 
图 片 的 路 径 ， 所 以 在 设置 商品 图 片 时 ， 需 要 将 图 片 的 src 属性 设置 为 src="<%=(Recordsetl. 
Fields.Item("sp_pic").Value)%>"。 所 以 设置 图 片 的 代码 如 下 : 


<img src="<%= (Recordsetl.Fields.Item("sp pic") .Value)s>" width="150" height 

三 

选择 重复 区 域 后 ， 单 击 重复 区 域 按钮 ， 设 置 重 复 区 域 显 示 为 10 条 记录 。 如 果 用 户 想 浏览 
更 多 的 信息 ， 可 以 单 击 商品 浏览 链接 或 者 通过 商品 查询 来 进一步 浏览 商品 。 

首页 制作 中 ， 主 要 提供 用 户 进行 登录 、 新 用 户 注册 、 浏 览 最 新 商品 的 功能 。 同 时 提供 给 用 
户 进行 商品 浏览 、 商 品 查 询 、 购 物 车 、 生 成 订单 的 导航 菜单 和 管理 员 进 行 登录 的 超 链 接 。 


13.2.2 ”商品 信息 浏览 


1. 商品 浏览 页 面 (shop.asp) 说 明 


在 用 户 购 买 商 品 之 前 ,需要 对 商品 进行 浏览 。 顾客 必须 能 看 到 具体 的 商品 才能 够 决定 是 否 
购买 此 商品 及 确定 想 要 购买 商品 的 数量 。 在 首页 中 只 能 看 到 最 新 添加 的 几 个 商品 ， 而 在 商品 浏 
览 页 面 ， 用 户 可 以 实现 按照 商品 分 类 来 进行 浏览 商品 。 

商品 浏览 页 面 shop.asp 呈现 的 效果 如 图 13-14 所 示 。 
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13-14 ”商品 浏览 页 面 
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在 商品 的 浏览 页 面 上 ， 用 户 可 以 在 左 侧 的 商品 分 类 列表 中 单 击 自己 需要 购买 商品 的 类 别 ， 
相应 的 页 面 左 侧 显示 该 类 别 的 商品 。 

2. 页 面 右 侧 iframe 插入 

页 面 右 侧 过 ame 是 通过 插入 一 个 过 ame 标签 来 实现 的 。iframe 为 一 个 页 内 框架 , 在 页 面 上 
可 以 揪 入 一 个 框架 页 面 ， 实 现 类 似 于 框架 的 一 个 功能 。 当 用 户 单 击 左 侧 的 超 链接 时 ， 在 右 侧 
过 ame 框架 内 显示 相应 的 商品 内 容 。 

过 ame 标签 的 插入 可 以 通过 标签 选择 器 来 添加 。 有 具体 操作 步骤 如 下 。 

(1) 将 光标 放置 在 需要 放置 框架 的 地 方 。 选 择 插入 工具 栏 中 “常用 ”一 栏 ， 选 择 显 按钮， 
弹出 标签 选择 器 ， 如 图 13-15 所 示 。 

(2) 在 标签 选择 器 中 ， 选 择 HTML 标签 下 的 “页 元 素 ”， 如 图 13-15 所 示 ， 在 右 侧 的 元 素 
中 ， 选 择 这 ame， 弹 出 一 个 过 ame 标签 属性 设置 的 对 话 框 ， 如 图 13-16 所 示 。 
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图 13-15 添加 iframe 标签 图 13-16 设置 iframe 属性 
iframe 属性 设置 相关 说 明 如 下 。 


GD 源 : 用 于 设置 页 内 框架 显示 的 页 面 内 容 。 其 值 为 链接 的 页 面 shop1.asp。 
@ 名称: 为 :frame 框架 的 名 称 ， 可 以 用 于 作为 超 链接 的 目标 。 
图 宽度 、 高 度 : 表示 框架 页 面 的 宽度 和 高 度 ， 以 像素 为 单位 。 
由 边 距 宽度 、 边 距 高 度 : 设置 页 面 内 容 距 离 框 架 的 上 边 距 和 左边 距 ， 以 像素 为 单位 。 
@ 对齐: 设置 框架 在 页 面 上 的 对 其 方式 。 其 值 为 顶端、 居中 、 底 部 、 左 对 齐 和 右 对 齐 。 
@ 滚动: 设置 页 面 深 动 条 ， 值 为 自动 、 是 和 否 。 
@ 显示 边框 : 表示 是 否 显 示 页 内 框架 的 边框 。 
(3) 插入 之 后 ， 在 代码 中 显示 的 过 ame 代码 如 下 : 
<iframe 
src="shopl .asp" <!-- 框 架 页 面 的 链接 地 址 --> 
name="main" <!-- 框 架 的 名 称 --> 
width="700" 0 
marginwidth="0" <!-- 边 距 宽度 --> 
height="600" <! 一 高 度 --> 
marginheight="0" <!-- 边 距 高 度 --> 
align="top" <!-- 对 齐 方式 --> 


“NNN 


第 13 章 ”网 上 购物 网 站 画 = 


scrolling="auto" <!-- 滚 动 条 --> 
frameborder="0"> <! 一 框架 边框 --> 
</iframe> 


在 过 ame 设置 的 属性 , 在 它 的 代码 中 都 有 相应 的 体现 。 在 这 ame 框架 页 面 上 默认 所 显示 的 
页 面 为 shopl1.asp 页 面 ， 用 于 呈现 商品 信息 。 

3. 页 面 左 侧 菜单 生成 

页 面 左 侧 浏览 菜单 显示 的 内 容 为 数据 库 中 fenlei 数据 表 中 的 内 容 。 

有 具体 操作 步骤 如 下 。 

1) “ 绑 定 记录 集 

单 击 插入 工具 栏 中 “数据 ”一 栏 中 的 | 图 按钮 ， 绑 定数 据 集 ， 设 置 如 图 13-17 所 示 。 

2) ”显示 分 类 列表 

在 左 侧 表格 中 设置 动态 文本 ， 显 示 fenlei 数据 表格 中 的 fenlei 字段 ， 以 无 序列 表 形 式 

同时 ， 为 该 fenlei 动态 文本 添加 超 链接 。 链 接地 址 为 shop1.asp?fenlei=%= (Recordset] Fields Ttem 
("fenlei").Value)%>， 该 超 链接 的 地 址 为 shopl.asp， 并 且 在 链接 的 过 程 中 传递 参数 fenlei=<%= 
(Recordsetl.Fields.Item("fenlei").Value)%>。 链 接 的 目标 为 添加 的 过 ame 框架 ，target="main"。 
代码 如 下 : 

<a href=shopl .asp?fenlei=<%= (Recordsetl .Fields.Item("fenlei") .Value)%> 

target="main"> 

<%= (Recordset1.Fields.Item("fenlei") .Value)Ss> 

</a> 

3) ”设置 重复 区 域 

设置 完 超 链接 后 ， 选 择 该 列表 选项 为 重复 区 域 ， 在 弹出 的 重复 区 域 对 话 框 中 ， 选 择 所 有 记 
录 ， 如 图 13-18 所 示 。 
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图 13-17 绑 定 分 类 表 13-18 ”设置 重复 区 域 显示 商品 分 类 列表 


4. 商品 显示 页 面 shop1.asp 

shopl1.asp 页 面 为 根据 商品 分 类 将 不 同类 别 的 商品 显示 在 右 侧 的 框架 页 面 上 。 
具体 操作 步骤 如 下 。 

1) “数据 绑 定 显示 该 商品 类 别 的 商品 

单 击 插入 工具 栏 中 “数据 ”一 栏 中 的 | 辆 按钮， 设置 记录 集 的 相关 选项 ， 如 图 13-19 所 示 。 
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图 13-19 设置 记录 集 


注意 : 记录 集 访问 的 为 shop 数据 表 ， 在 筛选 一 栏 中 ， 选 择 sp_leibie 字段 的 值 为 URL 参数 传递 
的 fenlei 的 值 。 在 前 面 设置 商品 分 类 列表 时 ， 为 类 表 设 置 超 链接 为 <a 
href=shopl.asp?fenlei= <%6=(Recordsetl Fields Item("fenlei").Value)%> target="main"></a>, 
传递 URL 参数 为 fenlei= <%=(Recordsetl.Fields.Item("fenlei").Value)%>。 在 这 里 相应 的 
提取 fenlei 的 值 ， 绑 定 相应 分 类 的 产品 。 


2) ”设置 重复 区 域 


绑 定 到 记录 集合 后 , 将 商品 的 名 称 、 价格 、 说明 、 图片 以 及 商品 的 剩余 数目 显示 在 页 面 上 ， 
与 设置 首页 时 的 效果 相同 ， 如 图 13-20 所 示 。 








图 13-20 显示 商品 基本 信息 


设置 重复 区 域 显示 的 5 条 记录 。 

3) ”添加 导航 条 

将 鼠标 放置 在 重复 区 域 的 下 方 ， 在 插入 工具 栏 中 选择 “数据 ”选项 ， 单 击 国 按钮， 为 记录 
集 分 页 和 添加 记录 集 导 航 条 。 在 下 拉 菜 单 中 选择 “记录 集 导航 条 ”选项 ， 弹 出 “记录 集 导 航 条 ” 
对 话 框 ， 如 图 13-21 所 示 。 








13-21 ”添加 记录 和 集 导航 条 
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在 “记录 集 导 航 条 ”对 话 框 中 ， 设 置 显 示 方式 为 “文本 ”， 则 在 重复 区 域 的 下 方 出 现 设置 
的 导航 条 。 


13.2.3 ”搜索 商品 


1. 商品 搜索 页 面 (sousuo.asp) 说 明 


商品 搜索 功能 可 以 集成 在 商品 浏览 页 面 显示 ， 为 了 说 明 方 便 ， 单 独 列 出 来 。 页 面 效果 如 图 
13-22 所 示 。 
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图 13-22 商品 搜索 

用 户 在 表单 中 输入 查询 商品 的 关键 字 ， 在 网 页 下 方 呈现 商品 列表 。 

2 操作 步骤 

1) “设置 表单 

在 网 页 上 方 插入 一 个 表单 ， 表 单 为 一 个 文本 框 。 用 户 在 表单 中 输入 查询 商品 的 关键 字 ， 单 
击 “ 提 交 ” 按 钮 。 

表单 代码 如 下 : 

<form name="forml" method="post" action="sousuo.asp"> 
关键 字 : 


<input type="text" name="key" id="key"> 
<input type="submit" name="button" id="button" value=" 提 交 "> 
</form> 
文本 框 的 name 属性 为 key。 
2) 设置 记录 集 
单 击 插入 工具 栏 中 “数据 ”一 栏 中 的 | 国 按钮 ， 设 置 记录 集 的 相关 选项 ， 如 图 13-23 所 示 。 





13-23 ”设置 记录 集 
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如 图 13-23 所 示 ， 记 录 集 为 绑 定 的 shop 数据 表格 ， 显 示 商 品 信息 。 在 筛选 选项 中 ， 设 置 得 
选 的 字段 为 sp_keyword， 包 含 表单 变量 key。 

绑 定 完 数据 集 合 后 , 将 数据 表格 中 需要 的 数据 显示 到 网 页 上 .与 商品 浏览 页 面 的 设置 相同 ， 
这 里 就 不 再 重复 了 。 

3) 重复 区 域 

选择 如 图 13-24 所 示 的 区 域 ， 选 择 插 入 工具 栏 中 的 “数据 ”选项 ， 单 击 图 按钮 ， 设 置 重复 
区 域 ， 显 示 所 有 的 记录 。 























13-24 ”设置 重复 区 域 


4) ”设置 记录 集合 不 为 空 的 显示 效果 

选择 所 设置 的 重复 区 域 ， 单 击 插入 工具 栏 中 “数据 ” 栏 中 的 田 * 按 钮 ， 在 下 拉 菜 单 中 选择 
“如 果 记录 集 不 为 空 则 显示 ”选项 ， 如 图 13-25 所 示 。 

选择 “如 果 记 录 集 不 为 空 则 显示 ”命令 后 ， 弹 出 “如 果 记 录 集 不 为 空 则 显示 区 域 ”对 话 框 ， 
选择 相应 的 记录 集合 即 可 ， 如 图 13-26 所 示 。 





13-25 ”选择 “如 果 记 录 集 不 为 空 则 显示 ”命令 。” 图 13-26 “如 果 记 录 集 不 为 空 则 显示 区 域 ”对 话 框 

设置 该 操作 是 因为 在 查询 记录 集合 时 存在 记录 集 为 空 的 情况 。 如 果 记录 集 不 为 室 ， 则 显示 
商品 信息 列表 ;如 果 为 室 ， 则 显示 其 他 信息 。 

5) ”设置 记录 集合 为 空 的 显示 效果 

在 设置 商品 信息 表格 的 下 方 添加 文本 “没有 该 商品 ， 请 重新 查询 ”。 选 择 文本 ， 单 击 工 具 
栏 中 的 “显示 区 域 ” 按 钮 ， 在 下 拉 菜 单 中 选择 “如 果 记 录 集 为 空 则 显示 ”命令 。 在 弹出 的 对 
话 框 中 选择 记录 集 Recordset1， 单 击 “ 确 定 ” 按 钮 即 可 。 

通过 上 面 的 步骤 简单 地 将 商品 搜索 页 面 制作 完成 。 在 搜索 页 面 中 只 是 将 符合 要 求 的 所 有 商 
品 在 一 个 页 面 中 显示 出 来 。 读 者 可 以 根据 情况 设置 搜索 商品 的 分 页 显示 ， 该 功能 如 何 实现 在 本 
书 中 已 经 多 次 涉及 ， 在 这 里 就 不 再 重复 了 。 


13.2.4 添加 到 购物 车 
在 网 上 购物 网 站 的 首页 (index.asp)、 商 品 浏览 页 面 (shop.asp)、 商 品 搜索 页 面 (sousuo.asp) 中 ， 


都 显示 商品 的 相关 信息 。 而 在 商品 信息 的 后 面 ， 存 在 “购买 ” 超 链接 ， 当 用 户 单 击 “ 购 买 ” 超 
链接 时 ， 跳 转 到 addche.asp 页 面 ， 将 商品 添加 到 购物 车 中 。 
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如 果 用 户 是 第 一 次 使 用 购物 车 ， 则 自动 获取 一 个 订单 号 (orderid)， 将 这 个 订单 号 存储 在 
Session 中 。 获 取 订单 号 后 , 用 户 就 可 以 将 要 购买 的 商品 的 id 和 订单 号 (orderid) 一 起 存储 到 数据 


库 中 的 dingdan 数据 表 中 。 
商品 添加 到 购物 车 的 示意 图 如 图 13-27 所 示 。 






单 击 “ 购 买 ” 超 链接 


第 一 次 购买 商品 


获取 订单 号 


品 的 id 和 订单 号 (orderid) 
添加 到 数据 库 (addcart.asp) 


图 13-27 添加 商品 流程 





1. 设置 “购买 ” 超 链接 


在 商品 信息 的 后 面 , 存在 “购买 ” 超 链接 , 当 用 户 单 击 “ 购 买 ” 超 链接 时 ,， 跳 转 到 addcart.asp 
页 面 ， 将 商品 添加 到 购物 车 中 。 
设置 “购买 ” 超 链 接 的 代码 如 下 : 


<a href=addcart .asp?id=<%= (Recordsetl1 .Fields.Item("id") .Value)%>> 购 买 </a> 


在 超 链 接 中 的 URL 地 址 中 传递 参数 id=<%=(Recordsetl.Fields.Item("id").Value)%>， 表 示 
在 单 击 超 链接 时 ， 在 URL 地 址 中 传递 商品 的 id 信息 到 addcart.asp 页 面 。 


2. addche.asp 页 面 


addche.asp 页 面 的 主要 功能 是 将 用 户 要 购买 的 商品 添加 到 购物 车 中 。 在 addche.asp 页 面 中 
将 要 购买 商品 的 信息 存储 到 数据 表 orderid 中 。 
代码 如 下 : 


<%QLANGUAGE="VBSCRIPT"%> 
<!--#include file="Connections/connection.asp" --> 
<% 
sp id=Request .Querystring ("id") 
if(Session ("orderid")="")then 
response.Redirect ("getorder .asp") 
else 
Set Commandl = Server.CreateObject ("ADODB.Command") 
Commandl1 .ActiveConnection = MM connection STRING 
Commandl1 .CommandText = "INSERT INTO dingdan (orderid, sp id) VALUES 
('"&Session("orderid")g&"', '"g&sp idg"') " 
Commandl .CommandType = 1 
Commandl .CommandTimeout = 0 
Commandl1 .Prepared = true 
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Commandl .Execute () 
response.Write ("<script 
language="'javascript'>window.history.go(-1)</script>") 

end if 

s> 

代码 说 明 如 下 。 

(1) sp_id=Request.QueryString("id") 提 取 URL 地 址 中 传递 的 id 参数 ， 为 要 购买 商品 的 id 
号 。 存 储 到 变量 sp id 中 。 

(2) if(Session("orderid")="")then response.Redirect("getorder.asp") 语 句 中 ,Session("orderid") 
存储 的 信息 为 订单 号 。 先 判断 一 下 Session("orderid") 是 否 为 空 。 如 果 为 空 ， 表 示 用 户 第 一 次 使 
用 购物 车 ， 执 行 response.Redirect("getorder.asp") 语 句 ， 跳 转 到 getorder.asp 页 面 获取 订单 号 。 

(3) 如 果 Session("orderid") 不 为 空 , 表示 用 户 已 经 拥有 一 个 订单 号 了 , 则 执行 else 到 end 让 

之 间 的 语句 ， 将 购买 商品 的 id 号 和 订单 号 存储 到 数据 表 dingdan 中 。 

(4) response.Write("<script é language='javascript'>window.history.go(-1)</script>") 使 用 
response.Write 方法 在 页 面 上 写 入 一 段 javascript 代码 ,执行 window.history.go(-1) 语 句 , 返回 到 
历史 记录 中 的 上 一 页 。 

3. getorder.asp 页 面 

getorder.asp 页 面 的 作用 是 获取 一 个 订单 号 ,订单 号 是 唯一 的 、 不 能 重复 的 .这 里 通过 orderid 
数据 表 中 orderid 字段 累加 1 来 实现 。 

有 具体 操作 步 又 如 下 。 

1) 设置 更 新 命令 

在 插入 工具 栏 中 的 “数据 ”一 栏 中 ， 选 择 鳃 按钮 ， 添 加 一 个 命令 ， 弹 出 “命令 ”对 话 框 ， 
命令 设置 如 图 13-28 所 示 。 
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13-28 ”设置 更 新 命令 


“NN 


男 
oe 
第 13 章 网 上 购物 网 站 局 = 


在 “命令 ”对 话 框 中 ,设置 “ 类 型 ”为 “更 新 ”，SQL 语句 为 UPDATE orderid SET 
orderid=orderid+1。 将 数据 库 中 orderid 数据 表 中 的 orderid 字段 自动 累加 1， 生 成 一 个 订单 号 。 

2) ”存储 session 变量 并 跳 转 页 面 

生成 订单 号 后 ， 需 要 将 订单 号 读 取出 来 ， 存 储 到 session 中 。 首 先 绑 定数 据 表 orderid( 操 作 
步骤 与 其 他 绑 定 数据 表 的 操作 相同 ， 这 里 就 不 再 详细 说 明了 )。 代 码 如 下 : 

< 

Session ("orderid")=Recordset1.Fields.Item("orderid") .Value 

response.Redirect ("addche.asp?id="&request.-QueryString("id")) 

$s> 

代码 说 明 如 下 。 

(1) Session("orderid")=Recordsetl.Fields.Item("orderid").Value 将 orderid 数据 表 中 orderid 
字段 的 值 存储 到 session 中 。 

(2) response.Redirect("addche.asp?id="&request.QueryString("id")) 跳 转 到 页 面 addche.asp， 
并 且 传递 参数 id。 

通过 以 上 几 个 页 面 的 设置 ， 当 用 户 单 击 “ 购 买 ” 超 链接 后 ， 执 行 addche.asp 页 面 将 购买 商 
品 的 信息 存储 到 dingdan 数据 表 中 。 执 行 “ 插 入 ”命令 后 ， 调 用 javascript 语句 history.go(-1)， 
返回 到 上 一 页 。 所 以 用 户 单 击 “ 购 买 ” 超 链接 后 ， 页 面 刷新 一 下 ， 没 有 跳 转 到 其 他 页 面 ， 而 实 
际 上 调用 了 addche.asp 页 面 。 


13.2.5 ”查看 购物 车 


用 户 通过 浏览 商品 将 满意 的 商品 添加 到 购物 车 中 , 用 户 可 以 随时 查看 购物 车 的 情况 。 在 购 
物 车 页 面 (che.asp) 中 ， 用 户 可 以 查看 相关 商品 的 详细 信息 ， 也 可 以 设置 要 购买 商品 的 数量 ， 删 
除 不 想 购 买 的 商品 。 


1. 查看 购物 车 


具体 操作 步骤 如 下 。 

(1) 在 页 面 上 插入 一 个 表单 ， 设 置 表单 name 属性 为 fprml，action 为 chexiugai.asp。 然 后 
在 表单 中 插入 一 个 2 行 4 列 的 表格 。 

(2) 绑 定 数据 集 ， 选 择 记录 集 窗口 中 的 高 级 选项 ， 设 置 多 表 查 询 语句 ， 如 图 13-29 所 示 。 

设置 查询 shop 表 和 dingdan 表 ， 读 取 订 单 表格 中 的 id、orderid、sp_id、num 字段 ， 读 取 
shop 表 中 的 sp_title、sp_price、sp_num 字段 。 语 句 如 下 : 

SELECT orderid, sp id, num, sp title, sp price, sp num, dingdan.id 

FROM dingdan, shop 

WHERE orderid = MMColParam AND shop.id=dingdan.sp id 

(3) 在 表格 的 第 一 行 四 个 单元 格 中 输入 商品 名 称 、 商 品 价格 、 商 品 数量 、 删 除 文字 。 在 表 
格 的 第 二 行 显示 动态 文本 ， 如 图 13-30 所 示 。 

(4) 设置 表格 的 第 二 行为 重复 区 域 ， 显 示 所 有 记录 。 这 样 在 查看 购物 车 时 ， 就 可 以 看 到 所 
要 购买 的 商品 。 显 示 购物 车 的 页 面 如 图 13-31 所 示 。 
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图 13-30 设置 页 面 内 容 
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图 13-31 显示 购物 车 的 页 面 


(5) 设置 显示 区 域 。 选 择 form 表单 的 内 容 ， 如 果 记 录 集 不 为 空 则 显示 该 区 域 。 在 form 表 
单 下 写 入 文本 “您 还 没有 购物 ! ”， 如 果 记 录 集 为 空 则 显示 这 段 文字 ， 如 图 13-32 所 示 。 
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13-32 ”设置 显示 区 域 





2. 删除 商品 
在 显示 购物 商品 信息 的 “删除 ”的 单元 格 上 添加 一 个 “ 转 到 详细 页 面 ”操作 ， 使 页 面 跳 转 


到 delche.asp 页 面 ， 删 除 购物 车 内 不 需要 的 商品 。 


具体 操作 步骤 如 下 。 
1) “ 转 到 详细 页 面 
单 击 插入 工具 栏 中 的 图 按钮 ， 在 弹出 的 “ 转 到 详细 页 面 ”对 话 框 中 进行 设置 ， 如 图 13-33 


所 示 。 





13-33 ”设置 跳 转 页 面 


2) ”delche.asp 页 面 
delche.asp 页 面 实现 删除 记录 的 操作 ， 代 码 如 下 : 


<%QLANGUAGE="VBSCRIPT" CODEPAGE="936"%> 
<!--#include file="Connections/connection.asp" --> 
<% 

Set Commandl = Server.CreateObject ("ADODB.Command") 
Commandl .ActiveConnection = MM connection STRING 
Command1l .CommandText = "DELETE FROM dingdan WHERE 
id="&request.OueryString("id") 
Commandl.CommandType = 1 

Commandl.CommandTimeout = 0 

Command]1 .Prepared = true 

Command] .Execute () 

response.Redirect ("che.asp") 

%> 


代码 说 明 如 下 。 
(1) Commandl.CommandText = "DELETE FROM dingdan WHERE id="&request.QueryString 


("id")， 该 语句 为 设置 的 删除 命令 。 其 中 删除 条 件 为 d="&request.QueryString("id")。 


(2) response.Redirect("che.asp") 圳 除 条 件 执行 完毕 后 ， 跳 转 到 che.asp 页 面 。 
3. 继续 购物 


继续 购物 为 一 个 超 链 接 ， 执 行 一 个 javascript 语句 ， 返 回 历史 记录 的 上 一 页 。 代 码 如 下 : 
<a href="javascript:history.go(-1) "> 继续 购物 </a> 
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4. 保存 修改 
单 击 “ 修 改 订单 ”按钮 ， 则 提交 表单 ， 调 用 chexiugai.asp 页 面 ， 将 在 文本 框 中 输入 的 商品 
数量 进行 更 新 。 代 码 如 下 : 


<%@LANGUAGE="VBSCRIPT"S> 
<!--#include file="Connections/connection.asp" --> 
< 








set con=server.CreateObject ("adodb.connection") 
con.mode=2 
con.open (MM connection STRING) 
i=request .QueryString.Count 
for j=1 to i step 1 
num=trim (Request .QueryString.Item(j)) 
did=trim (Request .QuerySstring.Key (j)) 
Set rs=Server.CreateObject ("ADODB.recordset") 
sql= "select * from dingdan WHERE id= "&did 
rs.open sql,con,1,3 
rs ("num")=num 
rs.update 
next 
务 > 
< 条 
rs=nothing 
rs.close() 
Response.Redirect ("che.asp") 
务 > 


代码 说 明 如 下 。 

(1) i=request.QueryString.Count， 获 取 QueryString 集合 的 数量 。 

(2) forj=1 toistep 1， 利 用 循环 更 新 数据 库 中 的 数量 。 

(3) num=trim(Request.QueryString.Item(j)) 提取 表单 中 的 输入 商品 数量 文本 框 中 的 值 。 
did=trim(Request.QueryString.Key0)) 提取 表单 中 的 输入 商品 数量 文本 框 中 name 属性 的 值 。 

(4) rs.open sql,con,1,3 rs("num")=numrs.update 创建 数据 集 ， 对 数据 库 中 相应 的 字段 进行 
更 新 。 

(5) Response.Redirect("che.asp") 手 写 代 码 ， 执 行 更 新 操作 后 ， 返 回 che.asp 页 面 。 


13.2.6 生成 订单 


当 用 户 单 击 “ 购 买 商品 ” 超 链 接 ， 链 接 到 goumai.asp 页 面 ， 填 写 用 户 姓 名 、 地 址 等 信息 。 

具体 操作 步 又 如 下 。 

1) 设置 表单 

在 goumai.asp 页 面 上 ， 设 置 表 单 ， 提 交 相 关 的 信息 ， 页 面 设置 如 图 13-34 所 示 。 

在 表单 的 订单 编号 的 文本 框 中 显示 Session("orderid") 的 值 ， 在 用 户 名 文本 框 中 显示 
Session("MM Usermame")， 而 上 传 时 间 为 调用 的 now 函数 提取 的 系统 当前 时 间 。 
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2) ”插入 记录 
添加 服务 器 行为 “插入 记录 ”到 yuding 数据 表 中 ， 设 置 如 图 13-35 所 示 。 





13-34 设置 订单 的 提交 表单 13-35 “插入 记录 ”对 话 框 
设置 插入 记录 后 ， 即 可 实现 将 用 户 填写 的 订单 信息 插入 到 数据 库 的 yuding 数据 表 中 。 


13.2.7 ”查看 订单 


1. 页 面 效 果 
当 用 户 在 订单 提交 表单 中 填写 相应 的 信息 后 ， 单 击 “ 提 交 ” 按 钮 跳 转 到 查看 订单 页 面 
(dingdan.asp)， 如 图 13-36 所 示 。 
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13-36 ”生成 表单 
提交 订单 后 显示 的 为 查看 订单 页 面 ， 显 示 您 已 经 购买 商品 的 订单 号 、 总 价格 、 订 货 时 间 以 
及 是 否 已 经 发 货 。 如 果 已 经 发 货 了 , 则 在 发 货 情况 一 栏 中 显示 True, 否则 显示 Flase, 如 图 13-37 
所 示 。 
单 击 订单 号 ， 进入 orderchakan.asp 页面 ， 其 中 显示 该 订单 购买 的 商品 名 称 、 商 品 价格 和 商 
品 数量 。 在 下 面 会 显示 购买 商品 的 总 价格 ， 如 图 13-38 所 示 。 
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13-37 ”显示 订单 信息 
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图 13-38 显示 购买 的 商品 信息 
2. 订单 查看 (dingdan.asp) 页 面 


订单 查看 (dingdan.asp) 页 面 可 以 查看 到 该 用 户 已 经 购买 商品 的 订单 记录 。 
有 具体 操作 步骤 如 下 。 

1) ” 绑 定 记录 和 集 

订单 查看 页 面 首先 绑 定 记录 集 ， 设 置 如 图 13-39 所 示 。 
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图 13-39 设置 查询 语句 


在 设置 记录 集中 的 查询 语句 中 设置 查询 yuding 数据 表 , 在 筛选 一 栏 中 以 字段 yd_id 字段 进 
行 筛选 ，yd_id 等 于 阶段 变量 MM_Usemame， 也 就 是 用 户 登 录 的 用 户 名 。 将 该 用 户 所 购买 商品 
的 订单 绑 定 到 记录 和 集 Recordsetl 中 。 

2) ”显示 数据 

在 页 面 中 插入 一 个 2 行 4 列 的 表格 ,在 表格 的 第 二 行 中 绑 定 记录 集中 的 相应 数据 ， 分 别 为 


NN 





订单 号 、 商 品 价格 、 订 货 时 间 及 发 货 情况 ， 如 图 13-40 所 示 。 





图 13-40 显示 数据 表 中 的 数据 
选择 表格 的 第 二 行 ， 设 置 重复 区 域 为 “显示 所 有 记录 ”。 
3) ” 转 到 详细 页 面 
为 订单 号 设置 一 个 超 链接 ， 转 到 orderchakan.asp 页 面 ， 来 查看 订单 的 详细 情况 。 选 择 “ 订 
单 号 ”后 ， 单 击 工 具 栏 中 的 “ 转 到 详细 页 面 ”按钮 ， 在 弹出 的 对 话 框 中 设置 相应 的 参数 ， 如 
图 13-41 所 示 。 





转 到 详细 页 面 


| 所 选 范围 : “<%= (Recordset1. Pie] 








13-41 “ 转 到 详细 页 面 ”对 话 框 


3. 显示 订单 信息 (orderchakan.asp) 页 面 


orderchakan.asp 页 面 的 主要 作用 是 显示 订单 的 相关 信息 。 

有 具体 操作 步骤 如 下 。 

1) ” 绑 定 记录 和 集 

在 显示 订单 信息 的 页 面 显 示 的 为 商品 的 名 称 、 价 格 和 数量 ， 在 这 里 进行 多 表 查 询 。 单 击 插 
入 工具 栏 中 的 “数据 ”一 栏 ， 选 择 国 按钮 ， 弹 出 “记录 集 ” 对 话 框 ， 选 择 “ 高 级 ”按钮 。 在 
SQL 语句 中 输入 如 下 语句 : 

SELECT orderid, sp id, sp title, sp price, num 

FROM dingdan, shop 

WHERE orderid=MMColParam AND shop.id=sp id 

查询 dingdan 数据 表 和 shop 数据 表 ， 查 询 字 段 为 orderid、sp_ id、sp_title、sp_price、num。 
详细 设置 如 图 13-42 所 示 。 

在 这 里 设置 一 个 参数 为 MMColParam， 用 于 获取 订单 号 。 参 数 MMColParam 的 类 型 为 
numeric， 值 为 request.querystring(“orderid”)，“ 默 认 值 ” 为 |， 如 图 13-43 所 示 。 

2) ”显示 数据 

在 页 面 中 插入 一 个 2 行 3 列 的 表格 ， 在 表格 的 第 一 行 中 输入 表格 的 标题 名 称 ， 分 别 为 : 商 
品名 称 、 商 品 价格 和 商品 数量 ， 在 第 二 行 中 绑 定 数据 ， 如 图 13-44 所 示 。 
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13-42 ” 绑 定 记录 集 








13-44 ”显示 数据 


选择 表格 的 第 二 行 ， 设 置 重 复 区 域 为 “显示 所 有 记录 ”。 
3) ”显示 总 价格 


商品 的 总 价格 为 商品 的 价格 乘 以 商品 数量 的 总 和 。 在 显示 商品 数量 的 单元 格 后 面 添加 代 
码 ， 如 图 13-45 所 示 。 


While ((Repeatl__nunRows <> 0) AND (NOT Recordset1.EOF)) 
%> 


i 
《td width="19%">Cdiv align="center”»>C%= (Recordset1.Fields. Iten(“sp_title”). Value)%>C/div> /td 
人 td width="20%"><label> 

div align="center”>C%= (Recordset1.Fields. Iten("sp_price”). Yalue)%> 
b /1abel> 

Ydiv> tay 

《td width="17%"><1abel> 

Cdiv align="center”>%= (Recordset1.Fields. Iten(“nun”). Yalue)%> 

/1abel> 
Ydiv td 





WW sst(Recordsetl. Fields. Iten( sp Price Value)* (Recordsetl. Fields. Iten( nun’). Value) %> 


< 
Repeat1__index=Repeat1__index+l 
Repeat1__nunRows=Repeat 1__nunRows—l 


Recordset1, MoveNext () 


4 > ny 





13-45 ”添加 代码 


代码 <% s=st+(Recordsetl.Fields.Item("sp_price").Value)* (Recordsetl.Fields.Item("num"). 


Value) %> 表 示 将 商品 单价 和 商品 数量 相 乘 ， 再 利用 循环 来 进行 累加 ， 最 后 得 到 总 价格 。 
4) “设置 记录 集 为 空 显示 内 容 


在 表格 下 面 写 入 文本 “您 还 没有 购物 ! ”。 选择 这 段 文字 , 单 击 工具 栏 中 的 显示 区 域 按钮 ， 
如 图 13-46 所 示 ， 设 置 如 果 记 录 集 为 空 则 显示 “您 还 没有 购物 ! ”这 段 文字 。 


NN 


rr se 
<% If Recordset1.EOF 上 全 
<p> 您 还 没有 购物 ! K/p 
©% End If ”end RecoB® 
/tr> 个 
/table> /td> 





图 13-46 设置 显示 区 域 
13.3 ”后 台 管 理 员 模 块 的 设计 


后 台 管理 的 功能 主要 是 为 网 站 的 管理 员 提供 对 商品 类 别 、 用 户 信息 、 商 品 信息 、 订 单 信息 
的 管理 。 管 理 员 通 过 登录 模块 进入 到 后 台 。 管 理 员 管理 和 用 户 管理 模块 与 第 12 章 的 论坛 系统 
是 相似 的 ， 在 这 里 就 不 再 重复 介绍 了 。 这 里 主要 介绍 如 何 进行 商品 分 类 管理 、 商 品 信息 的 添加 


和 订单 管理 。 
13.3.1 商品 分 类 


1. 商品 分 类 管理 页 面 效果 (fenlei.asp) 
商品 分 类 管理 页 面 的 效果 如 图 13-47 所 示 ， 页 面 提供 了 添加 商品 分 类 、 修 改 商 品 分 类 和 删 

















除 商品 分 类 的 功能 。 
[L © hnpcwWlocalhostrch13/shop/admin/fenlei.as OG 下 | 分 | v | 点 #R 室 Dl 
总 收藏 。” 口 手机 收 大夫 > 吕 扩 情 ” 鲁 阅 站 要 式 由 翻译 ”可 基 图 ”月 登录 管家 四 游戏 。 > 
© localhost/ch13/shop/admin/fer x | | 全 全 
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13-47 ”商品 分 类 管理 页 面 的 效果 


加 车 今 日 人 选 








2. 添加 分 类 
添加 商品 分 类 名 称 ， 是 在 一 个 表单 中 添加 商品 分 类 名 称 ， 单 击 “ 提 交 ” 按 钮 后 ， 将 商品 分 


类 添加 到 fenlei 数据 表 中 。 
M/k 
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具体 操作 步骤 如 下 。 

1) 设置 表单 

在 页 面 的 上 方 ， 添 加 一 个 表单 ， 表 单 由 1 个 文本 框 和 1 个 “提交 ”按钮 组 成 ， 如 图 13-48 
所 示 。 








人 类 


| 
图 13-48 添加 表单 


<form name="forml" method="POST" action="<%=MM editRctiong>"> 
添加 商品 分 类 名 称 : <input type="text" name="textfield" id="textfield"> 
<input type="submit" name="button" id="button" value=" 提 交 "> 
</form> 
2) ”插入 记录 
在 插入 工具 栏 的 “数据 ” 栏 中 ， 选 择 “ 插 入 记录 ”按钮 是 ， 在 弹出 的 “插入 记录 ”对 话 杠 
中 ， 设 置 相关 选项 ， 如 图 13-49 所 示 。 
设置 如 图 13-49 所 示 ， 插 入 记录 后 转 到 fenlei.asp 页 面 ， 将 表单 中 的 textfield 文本 框 的 内 容 
插入 到 fenlei 数据 表 中 的 fenlei 字段 ， 数 据 类 型 为 文本 。 


3. 显示 商品 分 类 
显示 商品 分 类 的 主要 目的 ， 是 将 fenlei 数据 表 中 的 所 有 商品 分 类 的 名 称 显示 出 来 。 


有 具体 操作 步骤 如 下 。 
1) “ 绑 定 记录 集 





首先 绑 定数 据 库 中 fenlei 数据 表 ， 设 置 如 图 13-50 所 示 。 


EE 





图 13-49 插入 记录 13-50 ” 绑 定 记 录 集 


2) 设置 表单 
在 页 面 中 插入 一 个 2 行 3 列 的 表格 , 在 第 一 行 中 输入 表格 的 标题 ， 分 别 为 : 商品 分 类 名 称 、 
修改 和 删除 。 在 表格 的 第 二 行 中 的 前 两 个 单元 格 前 ， 插 入 表单 ， 将 表格 中 第 二 行 前 两 个 单元 格 


NNN 
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的 内 容 显示 嵌 套 到 表单 中 ， 代 码 如 下 : 


E> 
<form action="updatefenlei.asp" me ="post"> 
<td bgcolor="#FFFFFF"> 
<input name="fenlei" type="text" 
value="<%= (Recordsetl1 .Fields.Item("fenlei") .Value)s>"> 
</td> 
<td bgcolor="#FFFFFF"> 
<div align="center"> 
<input type="submit" name="button2" id="button2" value=" 修 改 "> 
<input type="hidden" name="fid" 
value=<%= (Recordsetl1 .Fields.Item("id") .Value) $%>> 
<input type="hidden" name="oldfenlei" 
value=<%= (Recordsetl] .Fields.Item("fenlei"). Value)®%>> 
</div> 
</td> 
</form> 
<td bgcolor="#FFFFFF"> 
<div align="center"> 
<a 
href="delfenlei .asp?id=<%= (Recordsetl .Fields.Item("id") .Value)%>" > 删除 </ a> 
</div> 
</td> 
</tr> 


表单 效果 如 图 13-51 所 示 。 





[ET 一 一 一 一 一 


图 13-51 设置 表单 

在 第 二 行 的 第 一 个 单元 格 中 插入 一 文本 框 ， 设 置 文本 框 的 初始 值 为 : 
<%=(Recordsetl .Fields.Item("fenlei").Value)%>。 

在 第 二 行 的 第 二 个 单元 格 中 插入 一 个 “修改 ”按钮 。 

第 三 个 单元 格 中 插入 “删除 ”文字 ， 并 为 “删除 ”设置 超 链接 ， 链 接地 址 为 : <a hre 仁 
"delfenlei.asp?id=<%=(Recordsetl.Fields.Item("id").Value)%>"> 删 除 </a>。 链 接 页 面 为 delfenlei.asp 
页 面 ， 传 递 参数 id 为 商品 分 类 的 id 号 ， 值 为 : <%=(Recordsetl .Fie lds .Item("id").Value)%>。 

3) ”设置 重复 区 域 

选择 表格 的 第 二 行 ， 设 置 重复 区 域 ， 显 示 所 有 记录 。 这 样 在 查看 商品 分 类 时 ,就 可 以 看 到 
所 有 商品 分 类 。 


4. 删除 商品 分 类 


当 用 户 单 击 “删除 ”链接 后 ， 链 接 到 delfenlei.asp 页 面 ， 并 且 传 递 参 数 id 为 商品 分 类 的 id 
， 值 为 <%=(Recordsetl.Fields.Item("id").Value)%>。 进 入 delfenlei.asp 页 面 ， 将 该 商品 分 类 
进行 遇 除 


AAS 





代码 如 下 : 


<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> 

<!--#include file="../Connections/connection.asp" -—-> 
< 条 

Set Command1l = Server.CreateObject ("ADODB.Command") 
Cormmandl .ActiveConnection = MM connection STRING 
Command]1 .CommandText = "DELETE FROM fenlei WHERE id 
="&request .querystring ("id") 

Command] .Execute () 

response.Redirect ("fenlei.asp") 

$%> 


代码 说 明 : 设置 执行 命令 的 SQL 语句 为 Command1.CommandText = "DELETE FROM fenlei 
WHERE id ="&request.querystring("id")， 表 示 删 除 fenlei 数据 表 中 的 数据 ， 而 条 件 是 当 id 等 于 
request.querystring("id")。 也 就 是 传递 的 id 参数 ， 就 是 我 们 所 选择 的 要 删除 的 商品 分 类 的 id 号 。 


5. 修改 商品 分 类 


当 用 户 单 击 “ 修 改 ”按钮 后 ， 链 接 到 updatefenlei.asp 页 面 ， 修 改 商 品 分 类 ， 可 以 将 已 经 设 
置 好 的 商品 分 类 的 名 称 进行 修改 ， 在 修改 的 同时 ， 也 能 将 商品 信息 表 (shop) 中 相应 商品 的 分 类 
进行 修改 。 

在 表单 中 设置 两 个 隐藏 对 象 : 


<input type="hidden" name="fid" 

Value=<$%= (Recordsetl] .Fields.Item("id") .Value) $>> 
<input type="hidden" name="oldfenlei" 

value=<%= (Recordsetl] .Fields.Item("fenlei"). Value)®%>> 


传递 商品 分 类 的 名 称 和 id 号 。 
updatefenlei.asp 代码 如 下 : 


<%QLANGUAGE="VBSCRIPT" CODEPAGE="936"%> 

<!--#include file="../Connections/connection.asp" -—-> 
< 对 

Set Commandl = Server.Createobject ("ADODB.Command") 
Command1l .ActiveConnection = MM connection STRING 
Command]1 .CommandText = "UPDATE fenlei SET 
fenlei='"grequest.Form("fenlei")g"' WHERE id ="grequest.Form("fid") 
Command] .Execute () 

Commandl .CommandText = "UPDATE shop SET 

sp leibie='"grequest.Form("fenlei")g&"' WHERE 
sp_leibie='"grequest .Form("oldfenlei")g"'" 

Command] .Execute() 

response.Redirect ("fenlei .asp") 

%> 


代码 说 明 如 下 。 
(1) 代码 中 执行 两 个 SQL 命令 ,一 个 为 "UPDATE fenlei SET fenlei="&request. Fomm ("fenlei") 
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&&" WHERE id ="&request.Form("fid"), 表示 将 分 类 数据 表 中 的 所 要 修改 商品 分 类 的 名 称 进行 修 
改 。 条 件 为 当 id 为 request.Form("fid")， 也 就 是 隐藏 对 象 fd 所 传递 的 参数 。 

(2) 另 一 个 命令 为 "UPDATE shop SET sp leibie="&request.Form("fenlei")&" WHERE 
sp_leibie"&request.Form("oldfenlei")&"", 表示 将 shop 数据 表 中 以 前 所 设置 的 商品 分 类 的 名 称 
修改 为 新 的 。 


13.3.2 ”添加 商品 信息 


添加 商品 信息 页 面 (addshop.asp) 效 果 如 图 13-52 所 示 ， 在 页 面 上 设置 添加 商品 信息 的 表单 ， 
管理 员 可 根据 表单 的 相关 设置 来 向 系统 添加 新 的 商品 信息 。 
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图 13-52 添加 商品 信息 的 页 面 效 果 
具体 操作 步骤 如 下 。 
1) ”设置 表单 


在 页 面 的 中 间 ， 添 加 一 个 表单 ， 用 于 提交 相关 的 商品 信息 ， 代 码 如 下 : 


<table width="634" align="center" cellpadding="0" 
cellspacing="0"bordercolor="#99BB99" style=" border-collapse: collapse"> 
<form name="forml"> 
<tr> 
<td width=186 height="29" align="right" class="STYLE2"><p 
align="center" class="greenb"> 商 品名 称 
</td> 
<td width=446 align="right"><div align="left"> 
<input type="text" name="title"> 
</div></td> 
A 
<tr> 
<td height="29" align="right" class="STYLE2"><div 
align="center"><span class="greenb"> 商 品 图 片 </span></div></td> 
<td align="right"><div align="left"> 
<input name="picture" type="text" value="../images/"> 
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</div></td> 
<Atr> 
<tr> 
<td height="29" align="right" class="STYLE2"><div 
align="center"><span class="greenb"> 商 品 分 类 </span></div></td> 
<td align="right"><div align="left"> 
<select name="select" id="select"> 
<option></option> 
</select> 
</div></td> 
</tr> 
<tr> 
<td height="27" align="right" class="STYLE2"><div 
align="center"><span class="greenb"> 商 品 </span><span class="greenb"> 价 格 
</span></div></td> 
<td align="right"><div align="left"> 
<input type="text" name="price"> 
</div></td> 
</Er> 
<tr> 
<td height="27" align="right" class="STYLE2"><div 
align="center"><span class="greenb"> 商 品 </span> 品 牌 </div></td> 
<td align="right"><div align="left"> 
<input type="text" name="pinpai"> 
</div></td> 
</tr> 
<tr> 
<td height="27" align="right" class="STYLE2"><div align="center"> 
关键 字 </div></td> 
<td align="right"><div align="left"> 
<input type="text" name="keyword"> 
</div></td> 
ET> 
<tr> 
<td height="47" align="right" class="STYLE2"> 
<div align="center"> 商 品 简 介 </div> 
</td> 
<td align="right"> 
<div align="left"><textarea name="abtract" cols="50" rows="8"></textarea> 
</div></td> 
</tr> 
EP 
<td width="186" height="32" align="center"> 
<input type="submit" name="Submit" value=" 提 交 "> 
</td> 
<td width="446" align="center"><div align="left"> 
<input type="reset" name="Submit2" value=" 重 置 "></div> 
</td> 
</tr> 


NN 





</form> 
</table> 


2) 绑 定 记录 集 

在 表单 中 ， 设 置 了 一 个 下 拉 列 表 ， 用 于 选择 商品 的 分 类 ， 它 的 值 是 从 数据 表 fenlei 中 提取 
出 来 的 ， 下 拉 列 表 的 值 为 动态 变化 的 。 所 以 在 此 之 前 要 先 绑 定 fenlei 数据 表 。 

在 工具 栏 中 选择 “记录 集 ” 按 钮 ， 设 置 记 录 集 选项 如 图 13-53 所 示 。 

3) ”设置 动态 下 拉 列 表 

绑 定 记录 集 后 , 为 下 拉 列 表 设 置 动态 值 .在 工具 栏 上 选择 “动态 选择 列表 ”选项 , 如 图 13-54 
所 示 。 
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13-53” 绑 定 记录 集 图 13-54 选择 “动态 选择 列表 ”选项 


在 弹出 的 “动态 列表 /菜单 ”对 话 框 中 ， 设 置 “ 值 ”“ 标 签 ” 和 “选取 值 等 于 ”等 下 拉 列 
表 的 选项 ， 如 图 13-55 所 示 。 








13-55 “动态 列表 /菜单 ”对 话 框 


设置 完 相关 选项 后 单 击 “ 确 定 ” 按 钮 即 可 。 

4) “插入 记录 

设置 完 表单 后 ， 选 择 “插入 记录 ”菜单 命令 ， 将 填写 的 商品 信息 添加 到 数据 库 中 的 shop 
表 ， 如 图 13-56 所 示 。 
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图 13-56 “插入 记录 ”对 话 框 
设置 完 插入 记录 后 ， 该 页 面 即 设置 完毕 。 


13.3.3 商品 信息 管 理 


.商品 信息 管理 页 面 效 果 (shopck.asp) 


商品 信息 管理 主要 实现 对 前 面 添加 的 商品 信息 进行 修改 、 删 除 操作 。 


















































图 13-57 ”商品 信息 管理 页 面 
2. 显示 商品 信息 列表 
(1) 在 页 面 中 插入 一 个 跳 转 菜单 ， 菜 单 的 设置 代码 如 下 : 


<select name="jumpMenu" id="jumpMenu" 
onChange="MM jumpMenu('parent',this,0)"> 
<option value=" 选 择 类 别 "> 选 择 分 类 </option> 
<% While (NOT Recordset2.EOF) $%> 
<option 
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该 页 面 的 效果 如 图 
13-57 所 示 。 通 过 下 拉 列 表 选 择 商品 类 别 ， 系 统 会 在 下 方 的 表格 中 显示 对 应 类 型 的 商品 信息 。 


value="shopck .asp?leibie=<%= (Recordset2.Fields.Item("fenlei") .Value)®%>"><%= 


(Recordset2 .Fields .Item("fenlei") .Value)%></option> 
< 要 
Recordset2 .MoveNexzt () 
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Wend 

If (Recordset2.CursorType > 0) Then 
Recordset2.MoveFirst 

Else 
Recordset?2.Requery 

End If 

%> 

</select> 


该 跳 转 菜单 的 动态 列表 设置 , 如 图 13-58 所 示 , 它 对 应 的 关键 代码 为 以 上 代码 的 粗 体 部 分 ， 
实现 将 记录 集 2 中 的 fenlei 数据 全 部 在 列表 中 显示 ， 单 击 选项 后 ， 通 过 参数 fenlei 在 网 页 
shopck.asp 中 显示 对 应 的 信息 。 

(2) 绑 定 记录 集 。 首 先 绑 定 记录 集 1， 它 的 设置 如 图 13-59 所 示 。 
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图 13-58 动态 列表 的 设置 图 13-59 记录 集 1 的 设置 
绑 定 记录 集 2， 它 的 设置 如 图 13-60 所 示 。 

















图 13-60 记录 集 2 的 设置 
(3) 绑 定 数据 到 页 面 。 在 列表 的 下 方 插入 一 个 2 行 6 列 的 表格 ， 绑 定 记录 集 1 的 数据 到 页 
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面 上 ， 如 图 13-61 所 示 。 
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此 条 件 则 旦 示 ， 








图 13-61 绑 定数 据 


(4) 设置 超 链 接 。 在 表格 中 ， 选 中 文本 “删除 ”， 设 置 链接 为 : 

<a href="delshop.asp?id=<$%$=(Recordset1.Fields.Item("id") .Value)s>"> 删 除 </a>; 
选中 文本 “修改 ”， 设 置 链接 为 : 

<a href="updateshop.asp?id=<%= (Recordset1 .Fields.Item("id") .Value)gs>"> 修 改 </a> 


(5) 参照 前 面 的 设置 , 选中 绑 定 数据 所 在 的 行 标签 , 设置 为 重复 区 域 , 每 页 显示 5 条 记录 ; 
选中 表格 ， 设 置 为 “ 当 记 录 集 不 为 空 则 显示 ”; 添加 文本 “没有 该 分 类 的 商品 ”， 设 置 为 “ 当 
记录 集 为 空 则 显示 ”; 设置 记录 集 1 的 导航 条 。 这 里 不 再 详细 说 明 操作 过 程 了 。 

3. 删除 商品 


在 显示 商品 信息 页 面 ， 单 击 “ 删 除 ” 超 链接 ， 链 接 到 delshop.asp 页 面 ， 并 且 传递 参数 id 
为 商品 详细 信息 记录 的 id。 

代码 如 下 : 

<%QLANGUAGE="VBSCRIPT" CODEPAGE="936"%®> 

<!--#include file="../Connections/connection.asp" --> 

< 

Set Commandl = Server.Createobject ("ADODB.Command") 

Command1 .ActiveConnection = MM connection STRING 

Cormmandl .CommandText = "DELETE FROM shop WHERE id ="&request .querystring ("id") 

Command] .EXxecute () 

response.Redirect ("shopck.asp") 

$%> 

代码 说 明 : 设置 执行 命令 的 SQL 语句 为 Command1.CommandText= "DELETE FROM shop 
WHERE id ="&request.querystring("id")， 表 示 删 除 shop 数据 表 中 的 数据 ， 而 条 件 是 当 id 等 于 
Iequest.querystring("id'")。 

4. 商品 信息 修改 


当 用 户 单 击 “ 修 改 ” 超 链接 时 ， 链 接 到 updateshop.asp 页 面 ， 传 递 参数 id， 实 现 修改 添加 
的 商品 的 详细 信息 功能 。 

具体 操作 步骤 如 下 。 

(1) 该 页 面 的 设计 效果 与 addshop.asp 页 面相 同 ， 下 面 仅仅 说 明 不 同 的 设置 。 

绑 定 记录 集 1 和 记录 集 2， 设 置 如 图 13-62 所 示 。 


NN 
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图 13-62 ”记录 集 1 和 记录 集 2 的 设置 
(2) 添加 商品 分 类 的 动态 列表 ， 设 置 如 图 13-63 所 示 。 
(3) 绑 定数 据 。 绑 定 记录 集 1 的 数据 到 页 面 上 ， 如 图 13-64 所 示 。 
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图 13-63 ”动态 列表 设置 图 13-64 ” 绑 定数 据 
(4) 更 新 记录 。 在 该 页 面 中 添加 “更 新 记录 ”服务 器 行为 ， 对 话 框 设 置 如 图 13-65 所 示 。 














图 13-65 更 新 记录 设置 
这 样 ， 在 页 面 表单 中 更 改 相关 信息 后 ， 单 击 “ 提 交 ” 按 钮 ， 就 更 新 了 数据 库 中 对 应 的 商品 
记录 信息 。 
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13.3.4 订单 管理 


1. 显示 订单 信息 列表 (dingdanmanage.asp) 


订单 管理 实现 查看 和 删除 订单 或 修改 订单 的 状态 功能 。 订 单 管理 的 主页 面 效 果 如 图 13-66 
所 示 。 
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13-66 ”订单 管理 的 主页 面 效果 


该 页 面 显 示 了 所 有 用 户 生成 的 订单 ， 以 列表 的 形式 显示 出 来 ， 可 以 查看 订单 的 详细 信息 ， 
可 以 修改 发 货 情况 ， 还 可 以 删除 订单 。 

该 页 面 的 设计 与 订单 查看 页 面 dingdan.asp 相似 ， 显 示 “ 订 单 号 ”“ 商 品 价格 ”“ 发 货 情 
况 ”。 下 面 简单 讲解 操作 步 又。 

(1) 在 页 面 中 插入 一 个 2 行 5 列 的 表格 ,在 “发 货 情况 ”单元 格 的 下 一 单元 格 插入 一 个 表 
单 ， 包 含 1 个 复 选 框 和 1 个 “提交 ”按钮 ， 在 “删除 ”单元 格 的 下 一 单元 格 插 入 一 个 “删除 ” 
按钮 。 

(2) 绑 定 记录 集 1， 设 置 如 图 13-67 所 示 。 


ED 








图 13-67 ” 绑 定 记录 集 1 
(3) 绑 定数 据 。 绑 定 orderid、price、yd_time 到 页 面 上 ， 如 图 13-68 所 示 。 
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图 13-68 绑 定数 据 
绑 定 yd_ifsuccess 到 动态 复 选 框 中 ， 设 置 如 图 13-69 所 示 。 
动态 数 磊 
城 :| 日 著 记录 集 Fecoraset1) 下 确定 | 
多 id 
多 orderid _ 取消 | 
F ydid 帮助 0) 
多 d_name 
多 Hs 
ydtine 
"checkbox” 在 表单 “fornl” 元 | Ea 
入 到 ,0 果 DT 二 es a 
等 于 :ru kz 
代码 [= Recordsetl.Fields. Iten(yd_: 








图 13-69 复 选 框 的 设置 


(4) 选中 {Recordsetl.orderid} 设 置 “ 转 到 详细 页 面 ” 服 务 器 行为 , 设置 与 dingdan.asp 相似 ， 
如 图 13-70 所 示 。 





详细 生息 页 7orderchem ep 取消 
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传递 现 有 参数 : 厅 yeL 参数 
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图 13-70 ” 转 到 详细 页 面 的 设置 


(5) 参照 前 面 的 设置 ， 选 中 绑 定 数据 所 在 的 行 标签 ， 设置 为 重复 区 域 ， 显 示 所 有 记录 ; 选 
中 表格 ,设置 为 “ 当 记 录 集 不 为 空 则 显示 ”; 添加 文本 “没有 订单 信息 ! ”， 设 置 为 “ 当 记 录 
集 为 空 则 显示 ”， 这 里 不 再 详细 说 明 操作 过 程 了 。 
切换 到 代码 视图 ， 在 “提交 ”按钮 所 在 的 表单 中 添加 以 下 代码 : 
<form name="forml" method="post" action="saveresult.asp"> 
<label> 


<input <%If (CStr((Recordsetl.Fields.Item("yd ifsuccess") .Value)) = 
cotr("Trues™}) 
Then Response.Write("checked=""checked""") : Response.Write("")%®> 
type="checkbox" name="checkbox"™ id="checkbox"> 已 发 货 
<input name="id" type="hidden™ 
value="<%®= (Recordset]1 .Fields.Item("id") .Value)®%>" /> 
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<input name="button" type="submit" id="button" value=" 提 交 " /> 
</label> 
</form> 


单 击 “ 提 交 ” 按 钮 后 ， 提 交 表单 到 saveresult.asp 进行 处 理 
2. 修改 订单 发 货 状 态 


修改 订单 发 货 状态 使 用 saveresult.asp 页 面 实现 ， 该 页 面 通过 dingdanmanage.asp 提交 的 发 
货 信 息 更 新 数据 库 对 应 的 字段 。 该 页 面 的 代码 如 下 : 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> 

<!--#include file="../Connections/connection.asp" --> 

< 多 

dim success 

success=request .Form("checkbox") 

If(success="") Then success=false 

Set Commandl = Server.CreateObject ("ADODB.Command") "创建 数据 库 

Command1l1 .ActiveConnection = MM connection STRING 

Commandl1 .CommandText = "UPDATE yuding SET yd ifsuccess="&success&" WHERE 

id="&request .Form("id") "更 新 数据 库 

Commandl .Execute () 

response.Write("<script language=javascript>history.go(-1)</script>") | 

设置 更 新 完成 后 返回 

$%> 


在 dingdanmanage.asp 页 面 的 复 选 框 中 进行 选择 后 ， 单 击 “ 提 交 ” 按 钮 ， 将 表单 的 id 和 复 
选 框 状态 传递 给 saveresult.asp 页 面 ， 该 页 面 使 用 语句 : 
PDATE yuding SET yd ifsuccess="&successg" WHERE id="&request.Form("id") 


传递 id 参数 定位 到 yuding 表格 相应 的 记录 , 更 新 yd_ifsuccess 字段 为 表单 传递 的 复 选 框 状 


3. 删除 订单 

在 dingdanmanage.asp 页 面 中 单 击 “删除 ”按钮 ， 能 够 将 订单 删除 ， 使 用 “删除 记录 ” 服 
务 器 行为 即 可 。 

在 该 页 面 中 单 击 “ 数 据 ” 工具 栏 上 的 “删除 记录 ”按钮 ， 在 弹出 的 对 话 框 中 进行 如 图 13-71 
所 示 的 设置 。 
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图 13-71 删除 记录 的 设置 
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13.4 小 结 


本 章 详细 介绍 了 一 个 典型 网 上 购物 网 站 的 设计 制作 过 程 , 包括 前 台 的 用 户 操作 模块 和 后 台 
的 管理 员 管理 模块 。 该 系统 包含 基本 的 购物 网 站 的 功能 。 前 台 实 现 了 用 户 的 注册 和 登录 ， 搜 索 
和 浏览 商品 ， 添 加 商品 到 购物 车 并 生成 订单 。 后 台 实 现 了 管理 员 登 录 ， 添 加 、 修 改 和 删除 商品 
类 别 ， 添 加 、 修 改 和 删除 商品 信息 ， 修 改 订单 发 货 状态 和 删除 订单 。 

通过 本 章 的 学 习 ， 读 者 能 够 学 会 使 用 Dreamweaver 和 ASP+Access 技术 实现 简单 的 电子 商 
务 网 站 的 技能 。 读 者 还 可 以 尝试 添加 和 丰富 本 网 站 的 功能 ， 从 而 增强 功能 和 易 用 性 。 
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第 14 章 ”新闻 发 布 系统 


2 内容 摘要 avswact AR 

本 章 介绍 典型 的 新 闻 发 布 系统 的 设计 与 实现 。 构 建 一 个 典型 的 、 小 数据 量 的 新 闻 发 布 系统 
平台 。 本 系统 采用 ASP+Access 模式 ， 采 用 了 模块 化 设计 ， 分 为 新 闻 显示 浏览 模块 和 管理 员 管 
理 模块 。 用 户 进入 系统 首页 ， 能 够 对 新 闻 进 行 浏览 与 搜索 ; 管理 员 进 入 管理 窗口 ， 能 够 添加 新 
闻 ， 并 可 以 对 已 经 添加 的 新 闻 进行 管理 ， 如 修改 、 删 除 操作 .。 

这 里 设计 的 新 闻 发 布 系统 平台 ,考虑 到 在 中 小 型 网 站 中 新 闻 发 布 的 数据 量 不 大 ， 采 用 了 简 
单 的 Access 数据 库 。 本 章 详细 讲解 了 该 系统 的 分 析 和 总 体 设 计 ， 分 析 了 各 个 模块 的 设计 与 实 
现 ， 使 用 Dreamweaver 作为 开发 工具 ， 以 可 视 化 、 易 用 的 方式 完成 该 系统 的 开发 。 





学 习 目 标 |ovjective 


@ ”新 闻 系统 的 模块 的 数据 库 设 计 。 
@ ”使 用 Dreamweaver 的 数据 行为 实现 新 闻 显示 。 
@ ”新 闻 板块 与 新 闻 信息 管理 的 实现 。 





14.1 系统 分 析 与 总 体 设计 


相信 大 多 数 读者 都 有 访问 网 站 并 浏览 新 闻 的 经 历 ， 如 新 华 网 、 中 国 新 闻 网 等 。 大 型 的 新 闻 
类 网 站 的 内 容 极其 丰富 ， 分 类 复杂 ， 需 要 读者 耐心 寻找 希望 浏览 的 板块 ， 或 通过 搜索 定位 到 最 
终 的 新 闻 内 容 。 本 章 设 计 的 新 闻 发 布 系统 ， 不 是 用 于 大 型 新 闻 网 站 ， 而 是 用 于 一 般 网 站 的 典型 
的 新 闻 发 布 模块 。 

在 进行 网 站 的 设计 制作 之 前 ， 需 要 做 准备 工作 ， 即 需求 分 析 和 对 网 站 进行 规划 、 设 计 。 规 
划 的 内 容 包括 网 站 需要 的 功能 模块 设计 、 网 站 的 布局 及 数据 库 设计 。 只 有 这 些 工作 圆满 完成 后 ， 
后 面 模块 的 设计 实现 才 会 事半功倍 。 


14.1.1 功能 介绍 


本 章 设计 的 新 闻 发 布 系统 是 一 个 完整 的 网 站 中 的 一 个 组 成 部 分 。 比 如 : 某 大 学 的 主页 上 ， 
设置 一 个 新 闻 发 布 模块 ， 及 时 发 布 与 本 校 有 关 的 各 种 新 闻 事件 。 这 种 小 型 的 新 闻 发 布 系统 应 用 
十 分 普遍 。 

本 系统 主要 分 为 新 闻 显 示 模 块 和 新 闻 管 理 模块 。 





第 14 章 新 闻 发 布 系统 局 = 


1. 新 闻 显 示 模 块 功能 设计 


显示 模块 为 用 户 提供 友好 的 操作 界面 ， 提 供 方便 用 户 浏览 网 站 新 闻 的 功能 。 该 模块 可 以 详 
细 划 分 为 以 下 功能 区 。 

1) ”最 近 更 新 

该 功能 区 显示 最 近 添 加 到 数据 库 中 的 新 闻 ， 最 新 的 显示 在 最 上 面 ， 稍 晚 的 显示 在 下 面 ， 按 
照 新 闻 添加 到 数据 库 的 时 间 的 降序 排列 ， 保 证 用 户 在 该 区 域 看 到 的 第 一 条 新 闻 是 最 新 的 。 该 功 
能 区 显示 的 新 闻 不 是 显示 新 闻 的 详细 信息 ， 而 是 与 大 多 数 网 站 的 做 法 相同 ， 仅 显示 该 新 闻 的 标 
题 ， 新 闻 添 加 的 日 期 和 时 间 ， 同 时 该 新 闻 标 题 显示 为 超 链接 形式 。 用 户 只 需要 点 击 该 链接 就 可 
以 浏览 新 闻 的 具体 内 容 。 

2) 新闻 详 细 内 容 显示 

该 功能 区 显示 新 闻 的 详细 内 容 ， 包 括 新 闻 的 标题 、 作 者 、 新 闻 发 布 的 时 间 、 点 击 次 数 和 新 
闻 的 详细 文字 内 容 及 图 片 信息 。 

3) ”推荐 新 闻 

该 功能 区 显示 管理 员 指 定 为 推荐 的 新 闻 条 目 , 显示 格式 与 (1) 相 同 ,点击 新 闻 标题 超 链 接 就 
可 以 浏览 新 闻 的 具体 内 容 。 

4) ”热点 新 闻 

该 功能 区 显示 用 户 点 击 频率 较 高 的 新 闻 ， 以 点 击 频率 的 降序 排列 ， 显 示 格式 与 (1) 相 同 ， 点 
击 新 闻 标 题 超 链接 就 可 以 浏览 新 闻 的 具体 内 容 。 

5) 更 多 新 闻 

以 上 功能 区 只 显示 了 所 有 新 闻 的 一 部 分 内 容 ， 其 他 新 闻 可 以 通过 其 他 两 个 功能 区 访问 。 一 
个 为 “更 多 新 闻 ” 功 能 区 。 可 以 通过 最 近 更 新 、 推 荐 新 闻 功 能 区 右 下 方 的 “更 多 新 闻 ” 超 链接 
进入 。 

更 多 新 闻 区 ， 按 照 新 闻 类 型 进行 分 类 ， 归 入 不 同 的 板块 ， 用 户 可 以 根据 需要 和 兴趣 进行 有 
选择 地 浏览 。 

6) 新 闻 浏 览 

访问 所 有 的 新 闻 还 可 以 通过 “新 闻 浏 览 ” 功 能 区 访问 。 该 功能 区 的 功能 与 “更 多 新 闻 ” 功 
能 区 相同 ， 同 样 以 板块 对 所 有 的 新 闻 进行 分 类 ， 单 击 每 个 分 类 ， 能 够 列 出 该 板块 所 有 的 新 闻 条 
目 ， 继 续 点 击 可 以 浏览 新 闻 的 详细 内 容 。 

2. 新 闻 管理 模块 功能 设计 


管理 模块 是 供 系 统管 理 员 使 用 的 ， 允 许 管理 员 对 新 闻 进行 添加 、 更 新 、 删 除 等 操作 。 该 模 
块 又 可 以 详细 划分 为 以 下 功能 区 。 

1) 新闻 板块 管理 

该 功能 区 用 于 实现 管理 员 对 已 有 板块 的 修改 和 删除 ， 还 可 以 添加 新 的 板块 。 所 有 的 操作 都 
是 对 数据 库 进 行 的 读 写 操作 ， 效 果 能 够 动态 显示 到 网 页 中 。 

2) ”添加 新 闻 

该 功能 区 用 于 向 数据 库 中 添加 一 条 新 闻 ， 添 加 的 内 容 包 括 新 闻 标题 、 新 闻 所 属 的 板块 、 是 
和 否 标记 为 推荐 、 新 闻 是 否 包含 图 片 及 图 片 路 径 信息 、 新 闻 的 文字 内 容 、 新 闻 的 来 源 、 新 闻 的 作 
者 。 这 些 内 容 在 数据 库 中 被 标识 为 一 个 个 的 字段 ， 在 新 闻 显 示 模 块 中 ， 新 闻 的 显示 就 是 从 数据 
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库 中 读 取 添 加 的 新 闻 的 详细 信息 ， 并 呈现 出 来 。 

3) ”修改 新 闻 

该 功能 区 用 于 对 前 一 功能 区 添加 的 新 闻 进 行 修改 ， 即 对 新 闻 所 有 的 字段 都 可 以 进行 修改 ， 
修改 的 结果 保存 到 数据 库 中 ， 从 而 实现 对 新 闻 具 体 信息 的 修改 。 


14.1.2 总体 布局 


新 闻 发 布 系统 分 为 新 闻 显示 模块 和 新 闻 管 理 模块 。 新 闻 显 示 模 块 包括 最 近 更 新 、 推 荐 新 闻 、 
热点 新 闻 、 更 多 新 闻 、 新 闻 浏览 。 新 闻 管理 模块 包括 新 闻 板 块 管理 ， 能 够 实现 管理 员 登 录 、 修 
改 和 删除 板块 、 添 加 板块 ， 添 加 新 闻 ， 修 改 已 添加 的 新 闻 。 总 体 布局 如 图 14-1 所 示 。 
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图 14-1 系统 总 体 布局 
14.1.3 ”数据库 结 构 及 实现 


本 系统 相当 简单 ， 数 据 量 小 ， 故 采用 了 Access 数据 库 ， 共 创建 了 3 个 数据 表格 ， 具 体 介 
绍 如 下 。 

(1) admin 数据 表 : 存储 系统 管理 员 信息 的 数据 表 ， 包 括 管理 员 的 登录 名 和 密码 。 

(2) bankuai 数据 表 : 存储 新 闻 的 板块 分 类 信息 。 

(3) new 数据 表 : 存储 新 闻 的 具体 信息 ， 包 括 新 闻 标 题 、 新 闻 内 容 、 新 闻 所 属 板块 类 型 、 
新 闻 作 者 、 是 否 为 推荐 、 点 击 次 数 、 是 否 带 有 图 片 、 图 片 的 路 径 、 新 闻 的 日 期 信息 。 

数据 库 及 数据 表格 创建 的 具体 操作 步骤 如 下 。 
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1) “创建 数据 库 

首先 启动 Access 程序 ， 新 建 一 个 空白 数据 库 ， 命 名 为 news.mdb。 

2) ”创建 admin 数据 表 

在 newsmdb 数据 库 窗口 的 左 侧 的 对 象 栏 内 单 击 “ 表 ”图 标 ， 在 窗口 右 侧 选 择 “ 使 用 设计 
器 创建 表 ”， 在 弹出 的 数据 表 界 面 设计 窗口 中 设计 admin 表 的 字段 和 属性 ， 如 图 14-2 所 示 。 











14-2 设置 admin 表 的 字段 名 称 和 数据 类 型 


admin 数据 表 存储 管理 员 的 用 户 名 Usemame 字段 和 密码 passwd 字段 ， 数 据 类 型 都 为 文本 
类 型 ， 设 置 自动 编号 为 主键 。 

3) ”创建 bankuai 数据 表 

使 用 表 设 计 器 创建 bankuai 数据 表 ， 用 于 保存 新 闻 分 类 的 板块 信息 ， 各 个 字段 、 数 据 类 型 
和 说 明 如 图 14-3 所 示 。 








图 14-3 设置 bankuai 表 字 段 名 称 和 数据 类 型 


4) ”创建 new 数据 表 
使 用 表 设 计 器 创建 new 数据 表 ， 用 于 存储 新 闻 的 详细 信息 ， 各 个 字段 、 数 据 类 型 和 说 明 如 
14-4 所 示 。 





备注 
文本 























图 14-4 设置 new 表 字 段 名 称 和 数据 类 型 


new 数据 表 中 各 字段 的 说 明 如 下 。 

(1) nid 字段 : 表示 新 闻 条 目的 id， 类 型 为 自动 编号 。 

(2) title 字段 : 表示 新 闻 的 标题 ， 类 型 为 文本 。 

(3) content 字段 : 表示 新 闻 具 体内 容 ， 类 型 为 备注 。 因 为 本 章 开 发 的 新 闻 发 布 系统 比较 简 
单 ， 新 闻 条 目的 内 容 较 少 ， 使 用 备注 类 型 足够 保存 新 闻 信息 。 

(4) typename 字段 : 表示 新 闻 所 属 的 板块 信息 类 别 ， 类 型 为 文本 。 
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(5) zuozhe 字段 : 表示 新 闻 的 作者 ， 类 型 为 文本 。 

(6) tuijian 字段 : 表示 新 闻 是 否 为 推荐 的 新 闻 ， 类 型 为 是 / 否 。 

(7) Nfrom 字段 : 表示 新 闻 的 出 处 来 源 ， 类 型 为 文本 。 

(8) hits 字段 : 表示 新 闻 条 目的 点 击 次 数 ， 类 型 为 数字 。 

(9) selectpic 字段 : 表示 新 闻 是 否 有 图 片 ， 类 型 为 是 / 否 。 

(10) picurl 字段 : 表示 图 片 的 路 径 ， 类 型 为 文本 。 

(11) dateandtime 字段 : 表示 新 闻 的 具体 日 期 ， 类 型 为 日 期 /时 间 。 

创建 完 数据 库 后 ， 可 以 使 用 Dreamweaver 创建 站 点 和 配置 服务 器 。 配 置 完 站 点 后 ， 可 以 连 
接 数 据 库 。 相 关 的 设置 可 以 参考 前 面 章 节 。 

至 此 ， 我 们 根据 新 闻 发 布 系统 的 功能 要 求 ， 将 功能 细 化 为 简单 的 易于 实现 的 功能 模块 ， 从 
而 设计 出 新 闻 发 布 系统 的 总 体 布局 ， 并 进一步 对 各 模块 需要 的 数据 库 表 进行 了 详细 设计 。 下 硬 
的 工作 就 是 实现 各 模块 的 功能 ， 使 用 Dreamweaver 结合 Access 数据 库 加 以 实现 。 














14.2 ”模块 的 设计 与 实现 


前 一 节 已 经 完成 了 功能 模块 设计 、 网 站 的 布局 及 数据 库 设计 ， 这 是 基础 性 的 工作 。 在 本 节 
中 ， 我 们 使 用 Dreamweaver 和 Access 相 结 合 的 技术 ， 按 照 模 块 划分 ， 依 次 讲解 各 模块 的 详细 
制作 过 程 。 


14.2.1 新闻 显 示 


1. 首页 (index.asp) 
本 新 闻 发 布 系统 的 首页 显示 效果 如 图 14-5 所 示 。 
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图 14-5 系统 首页 效果 
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网 站 标识 和 导航 位 于 首页 中 的 顶部 。 由 于 在 其 他 模块 如 新 闻 浏 览 、 新 闻 板 块 管理 、 新 闻 信 
息 管理 中 ， 标 识 和 导航 也 同样 存在 ， 而 且 内 容 是 相同 的 ， 为 了 提高 代码 的 重用 性 ， 所 以 将 这 些 
内 容 放 入 一 个 单独 的 文件 head.asp 中 ， 在 其 他 网 页 中 调用 即 可 。 这 是 asp 编程 中 经 常 使 用 的 一 
种 方法 。 该 head.asp 文件 的 效果 如 图 14-6 所 示 。 














今天 是 2008 年 1 月 9 日 ee 
14-6 ”head.asp 文件 的 效果 


首页 中 ， 除 了 网 页 头 部 外 ， 主 要 由 4 个 部 分 组 成 : 最 近 更 新 、 推 荐 新 闻 、 热 点 新 闻 、 站 内 
搜索 。 各 部 分 的 详细 内 容 和 设计 过 程 如 下 。 

以 下 内 容 和 步骤 都 会 涉及 数据 库 的 操作 , 在 Dreamweaver 中 进行 以 下 操作 前 需要 首先 建立 
站 点 ， 前 面 章节 已 经 详细 介绍 了 站 点 的 建立 过 程 ， 这 里 不 再 费 述 。 然 后 设置 数据 库 连 接 ， 在 
Dreamweaver 的 “应 用 程序 ”下 的 “数据 库 ” 标 签 中 ， 单 击 加 号 ， 选 择 “数据 源 名 称 DSN)” 
命令 ， 如 图 14-7 所 示 。 

弹出 “数据 源 名 称 (DSN)” 对 话 框 ， 在 “数据 源 名称 (DSN)” 下 拉 列 表 框 中 选择 需要 的 数 
据 源 ， 如 图 14-8 所 示 。 


EEEEICD 








。 设 时 站 点 的 这 服务 嚼 . 
。 单 击 上 而 的 + 按 针 建 演 接 。 
图 14-7 设置 数据 源 图 14-8 选择 数据 源 


如 果 数 据 源 不 存在 ， 可 以 单 击 “ 定 义 ”按钮 ， 打开 “ODBC 数据 源 管理 器 ”对 话 框 ， 在 “ 系 
统 DSN” 选 项 卡 中 单 击 “ 添 加 ”按钮 ， 添 加 系统 数据 源 ， 如 图 14-9 所 示 。 


IEEEEEE 





14-9 添加 系统 数据 源 
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添加 Microsoft Access 数据 源 ， 定 义 数 据 源 名 称 ， 并 选择 14.1 节 定 义 的 数据 库 文件 ， 如 图 
14-10 所 示 。 

单 击 “ 确 定 ” 按 钮 ， 返 回 “数据 源 名 称 (DSN)” 对 话 框 ， 定 义 连接 名 称 为 connection， 在 
“数据 源 名 称 (DSN)” 下 拉 列 表 框 中 选择 刚刚 创建 的 data 数据 源 ， 然 后 单 击 “ 测 试 ” 按 钮 ， 弹 
出 如 图 14-11 所 示 的 对 话 框 ,说 明 数 据 库 连接 创建 成 功 。 这 样 ， 使 用 Dreamweaver 就 可 以 操作 
数据 库 了 。 























图 14-10 添加 Access 数据 库 图 14-11 定义 数据 库 连 接 
2. 最 近 更 新 
最 近 更 新 的 新 闻 所 呈 现 的 为 最 近 更 新 的 新 闻 条 目 ， 按 照 时 间 的 降序 进行 排列 。 
有 具体 操作 步骤 如 下 。 





(1) 首页 提供 浏览 最 近 更 新 的 新 闻 的 功能 。 单 击 插入 工具 栏 中 的 “数据 ” 栏 ， 选 择 记 录 集 
按钮 | 国 ， 设 置 记录 集 Recordsetl 的 相关 选项 ， 如 图 14-12 所 示 。 





图 14-12 设置 记录 集 





注意 : 记录 集 访问 的 为 new 数据 表 ， 按 照 dataandtime 字段 进行 降序 排列 ， 这 样 能 将 最 新 添加 
的 新 闻 显 示 在 最 上 面 。 





(2) 设置 重复 区 域 。 
绑 定 到 记录 集 后 ， 将 新 闻 的 标题 、 上 传 日 期 和 时 间 显 示 在 页 面 上 ， 如 图 14-13 所 示 。 
选择 重复 区 域 后 ， 单 击 重复 区 域 按钮 ， 设 置 重复 区 域 显示 为 10 条 记录 。 如 果 用 户 想 浏览 
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更 多 的 新 闻 信 息 ， 可 以 单 击 右面 的 “更 多 新 闻 ” 超 链接 。 






{Recordsetl. dateandtime} 





图 14-13 显示 新 闻 标题 和 时 间 


3. 推荐 新 闻 


推荐 新 闻 与 最 近 新 闻 的 设置 步 又 相似 。 首 先 绑 定 记录 集 ， 再 设置 重复 区 域 。 对 于 推荐 的 新 
闻 在 数据 库 中 根据 new 数据 表 中 的 tuijian 字段 的 状态 决定 。 在 输入 新 闻 时 , 管理 员 输 入 是 否 设 
置 为 推荐 ， 同 时 ， 还 按照 时 间 进 行 降序 排列 ， 保 证 最 新 的 推荐 新 闻 显示 在 最 上 面 。 

具体 操作 步 又 如 下 。 

(1) 绑 定 记录 集 ， 在 弹出 的 记录 集 窗 口中 选择 “高 级 ”模式 ， 填 写 SQL 语句 如 下 : 

SELECT * 

FROM new 

WHERE tuijian = true 

ORDER BY dateandtime DESC 

单 击 “确定 ”按钮 即 可 ， 如 图 14-14 所 示 。 


记录 集 











图 14-14 ” 绑 定 记录 集 


(2) 设置 重复 区 域 。 

绑 定 到 记录 集合 后 ， 将 新 闻 的 标题 、 上 传 时 间 显 示 在 页 面 上 ， 与 设置 “最 近 更 新 ”新 闻 一 
样 ， 选 择 重复 区 域 后 ， 单 击 重复 区 域 按 钮 ， 设 置 重复 区 域 显示 为 10 条 记录 。 如 果 用 户 想 浏览 
更 多 的 新 闻 信息 ， 可 以 单 击 后 面 的 “更 多 新 闻 ” 超 链接 。 

4. 热点 新 闻 

热点 新 闻 是 统计 用 户 点 击 新 闻 的 次 数 ， 根据 新 闻 点 击 的 次 数 进行 降序 排列 。 将 用 户 浏览 次 
数 最 高 的 新 闻 标 题 显示 在 页 面 最 上 面 。 
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具体 操作 步骤 如 下 。 
(1) 单 击 插入 工具 栏 中 “数据 ”一 栏 ， 选 择 男 按钮 ， 设 置 记录 集 的 相关 选项 ， 绑 定 new 
数据 表格 ， 按 照 hits 字段 进行 降序 排序 ， 如 图 14-15 所 示 。 








14-15 ” 绑 定 记 录 集 


(2) 设置 重复 区 域 。 
绑 定 到 记录 集合 后 ， 将 新 闻 的 标题 绑 定 在 页 面 上 ， 选 择 重复 区 域 后 ， 单 击 重复 区 域 按钮 ， 
设置 重复 区 域 显示 为 10 条 记录 。 


14.2.2 ”新 闻 浏览 


当 用 户 单 击 “更 多 新 闻 ” 超 链接 时 ， 进 入 新 闻 浏 览 页 面 ， 可 以 对 新 闻 进 行 分 类 浏览 。 

1. 分 类 浏览 (liulan.asp) 

该 页 面 分 为 左右 两 个 部 分 ， 左 侧 部 分 呈现 新 闻 板 块 分 类 的 列表 ， 右 侧 部 分 呈现 所 对 应 新 闻 
板块 的 新 闻 ， 按 照 时 间 顺 序 进行 降序 排列 ， 如 图 14-16 所 示 。 
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14-16 ”分 类 浏览 页 面 
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2. 显示 新 闻 分 类 列表 


页 面 左 侧 的 分 类 列表 ， 呈 现 新 闻 板块 分 类 。 分 类 信息 存储 在 bankuai 数据 表 中 ， 绑 定数 据 
集 ， 读 取 bankuai 数据 表 中 的 所 有 信息 。 

有 具体 操作 步骤 如 下 。 

(1) 单 击 插入 工具 栏 中 “数据 ”一 栏 中 的 | 国 (数据 集 ) 按 钮 ， 绑 定数 据 集 ， 设 置 如 图 14-17 
所 示 。 














14-17 绑 定 bankuai 表 


(2) 设置 左 侧 表格 中 的 动态 文本 ， 显 示 bankuai 数据 表格 中 的 type 字段 ， 以 无 序列 表 形 式 
显示 。 同 时 ， 为 该 bankuai 动态 文本 添加 超 链接 。 链 接地 址 为 

<a href=liulan.asp?typeid=<%=(Recordset1.Fields.Item("typeid") .Value)gs>> 

该 超 链接 的 地 址 为 liulan.asp， 就 是 本 身 页 面 ， 但 是 在 链接 的 过 程 中 传递 不 同 的 参数 ， 
typeid=<%=(Recordsetl.Fields.Item("typeid").Value)%>, 这 样 在 单 击 超 链接 后 , 重新 更 新 该 页 面 ， 
使 右 侧 的 信息 进行 更 新 。 

(3) 设置 重复 区 域 。 

设置 完 超 链接 后 ， 选 择 该 列表 选项 为 重复 区 域 ， 在 弹出 的 “重复 区 域 ”对 话 框 中 ， 选 择 显 
示 所 有 记录 ， 如 图 14-18 所 示 。 

















14-18 ”设置 重复 区 域 显示 所 有 分 类 列表 
这 样 ， 所 有 的 新 闻 板块 分 类 信息 都 将 显示 在 左 侧 区 域 。 
3. 显示 每 种 类 别 新 闻 
liulan.asp 页 面 根据 新 闻 板块 分 类 将 不 同类 别 的 新 闻 显 示 在 右 侧 的 表格 中 。 
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具体 操作 步骤 如 下 。 

(1) 数据 绑 定 显示 该 新 闻 板 块 的 新 闻 。 

单 击 插入 工具 栏 中 “数据 ”一 栏 ， 选 捐 图 按钮 ， 选 择 记 录 集 “高 级 ”选项 ， 在 “记录 集 ” 
对 话 框 中 设置 记录 和 集 的 相关 选项 ， 如 图 14-19 所 示 。 

设置 SQL 查询 语句 为 

SELECT * 

FROM new 


WHERE typename = MMColParam 
ORDER BY dateandtime DESC 


SQL 语句 表示 对 数据 表 new 进行 查询 ， 查 询 条 件 为 typename 字段 的 值 为 参数 
MMColParam， 并 且 按 照 时 间 进 行 降序 排列 。 
单 击 中 间 的 “编辑 ”按钮 ， 设 置 参数 如 图 14-20 所 示 。 
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图 14-19 设置 记录 集 14-20 ”编辑 SQL 语句 参数 


设置 MMColParam 参数 为 Request.QueryString("type")， 也 就 是 在 新 闻 列 表 超 链接 <a 
href=liulan.asp?type=<%=(Recordset1.Fields.Item("type").Value)%>> 中 传递 的 参数 。 

(2) 显示 新 闻 板 块 信息 和 新 闻 总 数 。 

在 显示 新 闻 条 目 部 分 的 顶部 ， 显 示 “ 您 现在 浏览 的 为 {Recordset2.typename}， 共 有 
{Recordset2_total} 条 新 闻 ”， 其 中 显示 的 动态 信息 为 2934-(Recordset2 Fields Item ("typename") Value)96>， 
表示 显示 新 闻 的 板块 信息 。<%=(Recordset2_total)%> 表 示 显 示 此 板块 新 闻 的 总 条 目 数 。 

(3) 设置 重复 区 域 。 

在 页 面 的 右 侧 , 插入 一 个 一 行 两 列 的 表格 , 在 单元 格 中 显示 新 闻 的 标题 和 新 闻 发 布 的 时 间 。 
并 设置 新 闻 标 题 为 超 链接 ， 链 接 代码 为 : <a href=xianshi.asp?nid=<%=(Recordset2.Fields.Item 
("nid").Value)%>><%=(Recordset2.Fields.Item("title").Value)%></a> 。 链接 到 的 URL 为 
xianshi.asp， 传 递 Recordset2 的 nid 字段 作为 参数 ， 显 示 对 应 的 记录 ， 如 图 14-21 所 示 。 





现在 浏览 的 为 {Recordset2. typename} ,共有 {Recordset2_totalj 条 新 闻 
*_ {Recordsetl. type} 








{Recordset2. title} {Recordset2. dateandtime} 





图 14-21 显示 新 闻 板 块 信息 
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选中 表格 的 一 行 ， 设 置 重 复 区 域 显示 的 10 条 记录 。 

(4) 添加 导航 条 。 

将 鼠标 放置 在 重复 区 域 的 下 方 ， 在 插入 工具 栏 中 选择 “数据 ”选项 ， 单 击 苹 按钮 ， 为 记录 
集 进 行 分 页 和 添加 记录 集 导 航 条 。 在 下 拉 菜 单 中 选择 “记录 集 导 航 条 ”命令 ， 在 弹出 的 “记录 
集 导航 条 ”对 话 框 中 ， 设 置 “显示 方式 ”为 “文本 ”， 如 图 14-22 所 示 。 





图 14-22 ”添加 记录 集 导 航 条 
单 击 “ 确 定 ”按钮 ， 则 在 重复 区 域 的 下 方 出 现 设置 的 导航 条 ， 如 图 14-23 所 示 。 








图 14-23 ”记录 集 导 航 条 
实际 网 页 中 导航 条 的 显示 效果 如 图 14-24 所 示 。 








首页 新 疗 浏览 新 闻 渤 块 管 理 添加 新 闻 信息 修改 新 闻 傍 息 
今天 是 2006 年 1 月 13 日 星期 日 














时事 报 首 两 ， 共有 13 条 新 闻 
损 和 新 闻 
体育 新 闻 长 先生 约翰 尼 - 格 兰 特 适 也 享年 84 岁 2008-1-12 10:22:02 
财经 新 闻 《者 想 》 后 格 退 出 演艺 图 富商 2008-1-12 10:20:57 
育 新 该 任命 为 中 起 六 2008-1-12 10:18:44 
生活 指南 l 工 60 天 后 开始 烤 员 可 能 堵 上 和 人 2008-1-10 18:34:50 
房产 信息 大 长 今 ” 李 英 要 居 囊 厚重 不 停 注油 2008-1-10 16:34:03 
同 | 天长 江 女 贡 党 林子 社 虽 青梅 竹马 父母 五 称 坟 宗 2008-1-10 1632:33 
9 委 女 豪 拓 1 亿 5000 万 2008-1-10 16:30:48 
| 市 相当 况 弃 车 济 罚 区 跳 上 狗仔 座 拒 长 而 去 2008-1-10 18:30:10 
| 陈竺 生 高 新 聘请 前 中 页 诲 保镖 日 头 2000 元 2008-1-10 13:49:44 
从 车 视 案 特 事 者 关 / 个 月 许 妈 蕾 叹 人 全 不 值 2008-1-10 13:48:24 
| 
14-24 ”导航 条 效果 
14.2.3 ”新 闻 搜索 
时 | 和 


在 新 闻 的 首页 提供 了 用 户 进行 新 闻 搜 索 的 功能 。 用 户 在 文本 框 中 输入 要 搜索 的 新 闻 的 关键 
字 ， 单 击 “ 搜 索 ” 按 钮 ， 则 在 search.asp 页 面 上 显示 出 符合 条 件 的 相关 的 新 闻 条 目 ， 页 面 效 果 


如 图 14-25 所 示 。 
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图 14-25 新 闻 搜索 


有 具体 操作 步骤 如 下 。 
(1) 设置 表单 。 
在 网 页 上 方 插入 一 个 表单 ， 表 单 中 设置 一 个 文本 框 和 两 个 按钮 。 用 户 在 表单 中 输入 查询 的 
新 闻 的 关键 字 ， 单 击 “ 搜 索 ” 按 钮 进行 搜索 ， 或 者 单 击 “ 取 消 ”按钮 进行 重 置 。 
表单 代码 如 下 : 
<form name="searchtitle" method="POST" action="search.asp" target=" blank"> 
<div align="center"> 
<input name="key" type="text" value=" 请 输入 关键 字 " size="16"> 
<br> 
<br> 
<input type="submit" name="Submit" value=" 搜 索 "> 
<input type="reset" name="Submit2" value=" 取 消 " > 
</div> 
</form> 
(2) 设置 记录 集 。 
单 击 插入 工具 栏 中 “数据 ”一 栏 , 选择 国 ( 记 录 集 ) 按 钮 , 设置 记录 集 的 相关 选项 , 如 图 14-26 
所 示 。 





14-26 ” 绑 定 记录 集 
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记录 集 绑 定 到 new 数据 表格 ， 显 示 新 闻 信 息 。 在 筛选 选项 中 ， 设 置 筛选 的 字段 为 conent， 
包含 表单 变量 key， 并 且 按 照 时 间 的 降序 进行 排列 。 

绑 定 完 数据 集合 后 ， 将 数据 表格 中 新 闻 的 名 称 和 新 闻 发 布 的 时 间 显示 在 页 面 上 ， 选 中 表格 
的 行 设置 重复 区 域 。 操 作 与 新 闻 浏 览 页 面 的 制作 步骤 相同 ， 这 里 不 再 獒 述 。 

(3) 显示 新 闻 总 数 。 

在 search.asp 页 面 ， 显 示 在 搜索 到 的 新 闻 条 目的 项 部， 首先 显示 共有 多 少 条 满足 条 件 的 新 
闻 ， 绑 定 total record 字段 到 网 页 上 ， 即 在 网 页 上 显示 “共有 {Recordsetl_total} 条 新 闻 ”。 

(4) 设置 记录 集合 不 为 空 的 显示 效果 。 

选择 所 设置 的 重复 区 域 , 单 击 插入 工具 栏 中 “数据 ” 栏 中 的 国 引 (如 果 记 录 集 不 为 空 则 显示 ) 
按钮 ， 在 下 拉 菜 单 中 选择 “如 果 记 录 集 不 为 空 则 显示 ”命令 ， 如 图 14-27 所 示 。 

















14-27 ”选择 “如 果 记 录 集 不 为 空 则 显示 ”命令 
弹出 “如 果 记 录 集 不 为 空 则 显示 区 域 ” 对 话 框 ， 选 择 相应 的 记录 集合 即 可 ， 如 图 14-28 
所 示 。 
设置 该 操作 是 因为 在 查询 记录 集合 时 存在 记录 集 为 空 的 情况 。 如 果 记 录 集 不 为 空 ， 则 显示 
新 闻 列 表 ; 如 果 为 空 则 显示 其 他 信息 。 
(5) 设置 记录 集合 为 空 的 显示 效果 。 
在 显示 新 闻 信 息 的 信息 表格 的 下 方 添加 文本 “没有 相关 新 闻 ， 请 重新 查询 ! ”。 选 择 该 文 
本 ， 单 击 工具 栏 中 的 “显示 区 域 ”按钮 ， 在 下 拉 菜 单 中 选择 “如 果 记 录 集 为 空 则 显示 区 域 ” 命 
令 。 在 弹出 的 对 话 框 中 选择 记录 集 recordsetl， 单 击 “ 确 定 ” 按 钮 即 可 ， 如 图 14-29 所 示 。 


ocordsatl_totalj 刍 新生 

















图 14-28 “如 果 记 录 集 不 为 空 则 显示 区 域 ”对 话 框 ”图 14-29 “如 果 记 录 集 为 空 则 显示 区 域 ”对 话 框 


14.2.4 ”新 闻 显示 页 面 
在 首页 中 所 显示 的 为 “最 近 更 新 ”“ 热 点 新 闻 ”“ 推 荐 新 闻 ” 等 板块 中 所 呈现 的 新 闻 标 是 


和 新 闻 发 布 时 间 。 同 样 ， 在 新 闻 浏览 页 面 (liulan.asp) 和 新 闻 搜索 页 面 (search.asp) 所 呈现 的 也 是 
新 闻 题目 和 新 闻 发 布 时 间 。 当 单 击 这 些 新 闻 的 标题 超 链接 时 ， 可 以 跳 转 到 新 闻 显 示 页 面 ， 更 加 
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详细 地 显示 新 闻 的 具体 内 容 。 

有 具体 操作 步骤 如 下 。 

(1) 设置 超 链接 。 

以 首页 (index.asp) 为 例 , 为 标题 名 称 设置 超 链接 。 在 代码 窗口 中 为 动态 文本 {Recordsetl .title} 
添加 超 链 接 。 超 链接 代码 为 : 

<a href=xianshi .asp?nid=<%= (Recordsetl1 .Fields.Item("nid") .Value)%>><%= 

(Recordsetl1 .Fields.Item("title") .Value)®> 

</a> 

该 超 链 接 的 地 址 为 xianshi.asp， 传 递 记录 集 Recordsetl 的 nid 字段 参数 ， 这 样 在 新 闻 显 示 
页 面 xianshi.asp 中 ， 通 过 nid 参数 从 数据 库 表 new 中 取出 对 应 的 记录 ， 显 示 在 页 面 上 。 

(2) 参照 前 面 的 操作 ， 在 xianshi.asp 页 面 中 绑 定 记录 集 Recordsetl, 设置 如 图 14-30 所 示 。 

(3) 新 闻 显示 页 面 (xianshi.asp)。 

绑 定 到 记录 集合 后 ， 将 新 闻 的 标题 、 新 闻 的 作者 、 新 闻 上 传 时 间 、 新 闻 点 击 次 数 及 新 闻 内 
容 绑 定 在 xianshi.asp 页 面 上 ， 如 图 14-31 所 示 。 
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{Recordsetl. title} 











图 14-30 ” 绑 定 记录 集 图 14-31 在 网 页 上 绑 定 字 段 
在 记录 集 Recordsetl 中 , 通过 将 URL 参数 nid 与 new 数据 表 中 的 nid 字段 进行 对 应 , 作为 
筛选 条 件 ， 在 xianshi.asp 页 面 中 ， 通 过 传递 的 nid 参数 从 数据 库 表 new 中 取出 对 应 的 一 条 记录 
的 标题 、 作 者 、 时 间 、 点 击 次 数 、 内 容 、 图 片 信息 ， 显 示 在 该 页 面 上 ， 最 终 效果 如 图 14-32 所 示 。 
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图 14-32 xianshi.asp 网 页 的 显示 效果 
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14.2.5 ”新闻 板块 管理 


板块 管理 实现 添加 新 的 板块 ， 修 改 或 删除 已 经 添加 的 板块 。 由 于 我 们 对 新 闻 分 类 整理 ， 归 
为 不 同 的 模块 ， 从 而 通过 板块 的 管理 可 以 快速 实现 对 同类 的 多 条 新 闻 的 同步 删除 操作 。 新 闻 板 
块 管理 具体 包括 板块 管理 登录 、 板 块 管理 。 

1. 板块 管理 登录 (login.asp) 

板块 管理 的 登录 与 前 面 的 登录 类 似 , 也 是 从 表单 中 提取 用 户 名 和 密码 ,与 数据 库 中 的 admin 
表 中 的 username 和 passwd 进行 连接 验证 ， 成 功 则 转 到 bankuaiasp， 和 否则 重新 转 到 login.asp 页 
面 进行 重 登 录 。 在 Dreamweaver 中 ， 使 用 工具 栏 中 “数据 ”中 的 “登录 用 户 ” 命 令 进行 登录 验 
证 ， 如 图 14-33 所 示 。 





14-33 ”登录 用 户 的 设置 


2. 板块 管理 (bankuai.asp) 


该 板块 首先 实现 为 数据 库 添加 板块 分 类 ， 然 后 可 以 对 添加 后 的 板块 进行 修改 和 删除 操作 。 
该 处 对 数据 表 bankuai 进行 读 写 。 

具体 操作 步骤 如 下 。 

(1) 绑 定 记录 集 。 

在 Dreamweaver 中 ， 打 开 bankuai.asp 页 面 ， 使 用 高 级 模式 插入 记录 集 ， 使 用 SQL 语句 查 
询 bankuai 数据 表 中 的 所 有 记录 ， 如 图 14-34 所 示 。 

(2) 在 页 面 中 ， 选 择 在 “数据 ” 栏 中 的 “插入 记录 ”命令 ， 设 置 将 forml 表单 中 的 名 称 为 
bk 的 文本 框 的 内 容 对 应 插入 到 数据 库 表 bankuai 的 type 字段 中 ,插入 完成 后 ， 返 回 本 页 。 参 数 
设置 详情 如 图 14-35 所 示 。 

(3) 在 该 页 面 的 forml 表单 下 方 ， 插 入 一 个 表格 ， 如 图 14-36 中 的 蓝 色 和 矩形 框 所 示 ; 在 表 
格 中 插入 一 个 表单 , 如 图 14-36 中 的 红色 矩形 框 所 示 。 在 表单 中 绑 定 记录 集中 的 type 和 typeid。 
设置 typeid 为 隐藏 : 

<input type="hidden" 

name="typeid"value="<%= (Recordsetl1 .Fields.Item("typeid") .Value)s>"” /> 
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通过 type 显示 已 经 添加 的 板块 名 称 ， 绑 定 到 文本 框 中 : 


<input name="type" type="text" id="textfield" 
value="<%= (Recordset1.Fields.Item("type") .Value)®>" /> 
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14-34 ” 绑 定 记录 集 


{Recordsetl type} oo | 





图 14-36 ”插入 表格 和 表单 


设置 typeid 为 隐藏 的 目的 是 在 bankuai.asp 页 面 中 不 显示 它 ， 但 是 在 单 击 “ 修 改 ” 按 钮 后 ， 
提交 本 表单 的 名 称 为 type 和 typeid 的 文本 框 内 容 到 bkxiugai.asp， 该 页 面 代码 如 下 : 


<%QLANGUAGE="VBSCRIPT" CODEPRGE="936"g> 
<!--#include file="Connections/connection.asp" --> 
<% 

dim typel 

typel=request .Form("type") 

dim typeid 

typeid=request .Form("typeid") 

Set Commandl = Server.CreateObject ("ADODB.Command") 
Command1l .ActiveConnection = MM connection STRING 
Commandl1 .CommandText = "UPDATE bankuai SET type ='"g&typelg"' WHERE 
typeid="&typeid 

Commandl .CommandType = 1 

Commandl .CommandTimeout = 0 

Commandl .Prepared = true 

Command] .Execute () 

response.Redirect ("bankuai .asp") 

$%> 


该 页 面 用 type 文本 框 中 输入 的 新 的 板块 名 称 ， 蔡 换 bankuai 表 中 typeid 对 应 的 type 字段 ， 
从 而 实现 了 对 板块 名 称 的 修改 。 
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(4) 如 图 14-36 所 示 ， 在 该 表格 的 表单 后 设置 一 个 “删除 ” 超 链接 ， 代 码 如 下 : 


<a 
href="bkshanchu.asp?typeid=<%= (Recordsetl1 .Fields.Item("typeid") .Value)gs>"> 
删除 </a> 


该 超 链接 的 地 址 为 bkshanchu.asp， 传 递 记录 和 集 Recordsetl 的 typeid 字段 参数 ， 通 过 typeid 
参数 从 数据 库 表 bankuai 中 删除 相应 的 记录 。bkshanchu.asp 页 面 的 代码 如 下 : 


<$@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> 
<!--#include file="Connections/connection.asp" --> 
< 

Set Commandl = Server.CreateObject ("ADODB.Command") 
Command]1 .ActiveConnection = MM connection STRING 
Commandl1 .CommandText = "DELETE FROM bankuai WHERE typeid 
="&grequest .querystring ("typeid") 
Commandl.CommandType = 1 

Commandl .CommandTimeout = 0 

Commandl1 .Prepared = true 

Command] .Execute() 

response.Redirect ("bankuai .asp") 

$%> 


删除 板块 信息 后 ， 重 新 返回 bankuai.asp 页 面 。 
最 后 ， 设 置 显示 重复 区 域 ， 登 录 后 ， 该 页 面 显示 效果 如 图 14-37 所 示 。 
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图 14-37 ”板块 管理 效果 
14.2.6 ”新 闻 信 息 管理 


前 面 通过 管理 员 登 录 对 板块 信息 进行 管理 ,涉及 具体 新 闻 条 目的 管理 ,包括 添加 新 闻 条 目 


到 对 应 的 板块 ， 还 应 该 实现 对 已 经 添加 的 新 闻 的 修改 。 
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1. 添加 新 闻 (addnew.asp) 

添加 新 闻 通 过 在 addnew.asp 页 面 中 设计 一 个 表单 ， 对 应 new 数据 表 的 各 个 字段 ， 设 置 相 
应 的 表单 元 素 ， 使 用 Dreamweaver 的 “插入 记录 ”功能 写 入 new 数据 表 。 如 图 14-38 所 示 是 
页 面 表单 的 设计 效果 。 



































图 14-38 添加 新 闻 表 单 


具体 操作 步 又 如 下 。 
(1) 绑 定 两 个 记录 集 ， 操 作 与 前 几 节 相同 ， 不 再 次 述 ， 设 置 如 图 14-39 所 示 。 
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14-39 ” 绑 定 记录 集 


(2) 设置 动态 列表 。 在 图 14-38 中 的 “文章 分 类 ”后 单 击 鼠标 ， 单 击 插入 工具 栏 中 的 “ 数 
据 ” 栏 ， 选 择 “动态 选择 列表 ”按钮 ， 弹 出 “动态 列表 /菜单 ”对 话 框 ， 设 置 记 录 集 Recordset2 
的 type 字段 的 值 等 于 记录 集 Recordsetl 的 typename 字段 值 ， 如 图 14-40 所 示 。 

(3) 设置 动态 复 选 框 。 推 荐 新 闻 和 新 闻 是 否 包含 图 片 , 需要 设置 为 复 选 框 。 在 Dreamweaver 
中 ， 在 “推荐 新 闻 ” 后 单 击 ， 单 击 插入 工具 栏 中 的 “数据 ” 栏 ， 选 择 “ 动 态 复 选 框 ” 按 钮 ， 在 
弹出 “动态 复 选 框 ”对 话 框 中 ， 设 置 当 复 选 框 被 选中 ， 即 状态 为 tue 时 ， 记 录 集 Recordsetl 的 
tuijian 字段 被 设置 为 tue， 如 图 14-41 所 示 。 

同 理 ， 设 置 新 闻 是 否 包含 图 片 的 复 选 框 ， 这 里 不 再 袭 述 ， 如 图 14-42 所 示 。 

(4) 插入 记录 。 单 击 插入 工具 栏 中 的 “数据 ” 栏 ， 选择“ 插入 记录 ”按钮 ， 在 “插入 记录 ” 
对 话 框 中 ， 设 置 “连接 ”为 connection， 设 置 “ 插 入 到 表格 ”为 new， 设 置 “插入 后 ， 转 到 ” 
为 addnew.asp; 设置 从 页 面 的 表单 forml 中 获取 所 有 的 元 素 ， 对 应 插入 到 new 表 的 各 字段 中 ， 
表单 元 素 与 各 字段 的 对 应 关系 如 图 14-43 所 示 。 
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图 14-40 ”设置 动态 列表 
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图 14-41 设置 “推荐 新 闻 ” 动 态 复 选 框 
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图 14-42 设置 “新 闻 是 否 包 含 图 片 ”动态 复 选 框 
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图 14-43 “插入 记录 ”对 话 框 
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2. 显示 需 修 改 新 闻 (newupdate .asp) 

当 新 闻 条 目 被 添加 到 数据 库 中 后 ， 如 果 发 现 有 错误 需要 改正 ， 或 者 需要 进行 更 新 操作 ， 就 
需要 用 到 对 新 闻 的 修改 功能 。 该 页 面 分 为 左右 两 个 部 分 ， 左 侧 部 分 呈现 新 闻 板 块 分 类 的 列表 ， 
呈现 新 闻 板 块 分 类 。 右 侧 部 分 呈现 所 对 应 新 闻 板 块 的 所 有 新 闻 条 目 ， 按 照 时 间 顺 序 进 行 降序 排 
列 。 这 与 14.2.2 节 的 设置 是 基本 相同 的 ， 总 体 的 设计 视图 如 图 14-44 所 示 。 








图 14-44 ”修改 新 闻 页 面 设计 


下 面 简单 地 进行 讲解 。 具 体操 作 步 又 如 下 。 

(1) 绑 定 两 个 数据 集 Recordsetl 和 Recordset2， 这 与 14.2.2 节 相 同 ， 不 再 歼 述 。 在 左 侧 表 
格 中 设置 动态 文本 ， 显 示 bankuai 数据 表格 中 的 type 字段 ， 以 无 序列 表 形 式 显 示 。 同 时 ， 为 该 
bankuai 动态 文本 添加 超 链接 。 链 接地 址 为 : 


<a href=newupdate.asp?type=<%= (Recordsetl .Fields.Item("type") .Value)®%>><%= 

(Recordsetl .Fields.Item("type") .Value)%> 

</a> 

该 超 链 接 的 地 址 为 newupdate.asp, 就 是 本 身 页 面 , 链接 传递 参数 : type=<%=(Recordsetl .Fields. 
Item("type").Value)%>， 这 样 在 单 击 超 链 接 后 ， 重 新 更 新 该 页 面 ， 使 右 侧 的 信息 进行 更 新 。 

(2) 设置 重复 区 域 。 设 置 完 超 链接 后 ， 选 择 该 列表 选项 为 重复 区 域 ， 在 弹出 的 重复 区 域 对 
话 框 中 ， 选 择 显 示 所 有 记录 。 

(3) 显示 每 种 类 别 新 闻 。 根 据 新 闻 板 块 分 类 将 不 同类 别 的 新 闻 显示 在 右 侧 的 表格 中 。 在 显 
示 新 闻 条 目 部 分 的 顶部 , 绑 定 <%=(Recordset2 total)%6> 显 示 条 目的 总 数 , 绑 定 Recordset2 的 title 
和 dateandtime 到 右 侧 表格 。 为 新 闻 条 目的 标题 添加 超 链 接 ， 代 码 为 : <a href-newupdateok.asp? 
nid=<%=(Recordset2.Fields.Item("nid").Value)%>><%=(Recordset2.Fields.Item("title").Value)%>< 
/a>， 链接 到 的 URL 为 newupdateok.asp， 传递 Recordset2 的 nid 字段 作为 参数 ， 在 URL 网 页 中 
显示 相应 的 记录 。 

(4) 设置 重复 区 域 并 添加 导航 条 。 这 里 与 14.2.2 节 相 同 ， 不 再 袭 述 。 

3. 修改 新 闻 (newupdateok.asp) 


显示 了 需要 修改 的 新 闻 条 目 只 是 修改 新 闻 条 目的 第 一 步 ,下面 才 是 对 显示 的 新 闻 进行 修改 
的 实际 操作 。 在 网 页 newupdateok.asp 中 设置 一 个 表单 ， 显 示 需 要 修改 的 新 闻 条 目 各 个 元 素 ， 
修改 后 提交 表单 ， 更 新 数据 库 即 可 。 

具体 操作 步骤 如 下 。 

(1) 绑 定 记录 集 。 首 先 ， 绑 定 两 个 记录 集 ， 操 作 与 前 几 节 相同 ， 只 有 参数 设置 有 所 不 同 。 
第 一 个 为 Recordsetl 记录 集 ， 高 级 设置 如 图 14-45 所 示 。 

通过 以 下 代码 : 


SELECT * FROM new WHERE nid = MMColParam 


NN 


第 14 章 “新 闻 发 布 系统 四 = 





实现 将 URL 传递 的 nid 参数 筛选 new 数据 表 的 nid 字段 ， 从 而 定位 到 确定 的 记录 。 第 二 个 为 
Recordset2 记录 集 ， 它 的 设置 比较 简单 ， 如 图 14-46 所 示 。 
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(2) 数据 绑 定 显示 新 闻 的 各 元 素 。 
绑 定 Recordsetl 记录 集 的 tile、typeid、picurl、txtcontent、Nfrom、zuozhe 到 网 页 的 表单 
上 ， 如 图 14-47 所 示 。 











图 14-47 ” 绑 定 显示 新 闻 的 各 元 素 





























需要 说 明 的 是 ， 与 添加 新 闻 相 同 ， 在 图 14-47 所 示 页 面 的 “文章 分 类 ”处 需要 同样 添加 动 
态 选择 列表 ， 设 置 如 图 14-48 所 示 。 
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图 14-48 ”添加 动态 选择 列表 
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推荐 新 闻 和 新 闻 是 否 包含 图 片 ， 同 样 需 要 设置 为 复 选 框 ， 与 前 面 的 设置 方法 相同 ， 这 里 不 
再 费 述 。 

(3) 更 新 记录 。 

下 面 最 重要 的 工作 就 是 修改 新 闻 条 目 之 后 ， 操 作 数 据 库 更 新 数据 表 中 的 相应 记录 。 单 击 插 
入 工具 栏 中 的 “数据 ” 栏 ， 选 择 “ 更 新 记录 ”按钮 ， 在 “更 新 记录 ”对 话 框 中 ， 设 置 “连接 ” 
为 connection， 要 更 新 的 表格 为 new， 选 取 记 录 自 Recordset1， 唯 一 键 值 列 为 nid， 设 置 更 新 后 
返回 newupdate.asp 页 面 ; 设置 提交 时 ， 从 页 面 的 表单 forml 中 获取 所 有 的 元 素 值 ， 对 应 插入 
到 new 表 的 各 字段 中 ， 表 单元 素 与 各 字段 的 对 应 关系 如 图 14-49 所 示 。 





图 14-49 ”表单 元 素 与 各 字段 的 对 应 关系 
以 上 设置 完成 后 ， 单 击 “ 确 定 ”按钮 ， 人 效果 如 图 14-50 所 示 。 
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14-50 ”修改 新 闻 页 面 效果 
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14.3 小 寻 


本 章 使 用 Dreamweaver 作为 开发 工具 ， 采 用 ASP+Access 模式 ， 采 用 了 模块 化 设计 ， 构 建 
了 一 个 典型 的 新 闻 发 布 平 台 。 该 系统 结构 清晰 ， 操 作 步 骤 讲 解 简练 、 准 确 。 读 者 可 以 跟随 我 们 
的 讲解 一 步 一 步 实现 所 有 功能 。 只 要 读者 熟悉 Dreamweaver 的 操作 , 所 有 的 操作 都 会 比较 容易 。 
有 一 些 与 前 面 章节 重 县 的 内 容 ， 本 章 只 做 了 简单 介绍 或 略 过 ， 读 者 可 以 参考 前 面 的 相关 章节 。 

通过 本 章 的 学 习 ， 读 者 可 以 加 深 对 Dreamweaver 数据 行为 的 了 解 ， 能 够 使 用 该 数据 行为 
实现 简单 的 动态 网 页 效果 和 功能 。 如 果 读 者 能 够 结合 代码 来 理解 数据 行为 ， 而 不 仅仅 是 关注 
Dreamweaver 的 固有 功能 ， 对 读者 学 好 ASP 会 有 较 大 帮助 。 
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